sayın kanlıtoprak. yapmak istediğiniz Excel üzerinde hazırlanmış bir şablonunuz var ve bu şablonun üzerine bulunan bilgi girilmesi gerekli yerlere aktif kayıdınızda olan değerleri göndermek istiyorsunuz.
doğru anladı isem aşağıdaki kodu bir deneyin. istediğinizin bu olduğunu düşünüyorum.

öncelikle vb penceresinde iken referans bölümündün
microsoft Excel referansını seçili hale getirmeniz gerekmektedir.

Dim objExcel
Dim objWorkBook
Set objExcel = CreateObject("EXCEL.APPLICATION")
objExcel.Visible = True
Set objWorkBook = objExcel.Workbooks.Open("C:\test.xls")

objExcel.Cells(3, 3).Value = değer1
objExcel.Cells(3, 4).Value = değer2