Kolay Gelsin.
Dim dosya As New Excel.Application
Dim sayfa As Excel.Workbook = dosya.Workbooks.Open(System.Windows.Forms.Application.StartupPath & "\drmkayıt v2.xls")
dosya.Visible = False
Dim sonsatir As Integer
sonsatir = dosya.WorksheetFunction.CountA(sayfa.Sheets("makbuz listesi").Columns("B"))
sonsatir=9
if sonsatir> 9 then
sonsatir = sonsatir + 2
end if
sayfa.Sheets("makbuz listesi").Range("B" & sonsatir) = TextBox1.Text ' ad soyad
sayfa.Sheets("makbuz listesi").Range("C" & sonsatir) = TextBox12.Text ' muh ücreti
sayfa.Save()
sayfa.Close()
dosya.Quit()