[Visual studio .NET] Rabim pomoč

Imam en problem in to da bi v Excelu Zapisal podatke vsakič ko jih shranim mi jih shrani v isto vrsto
Rad bi pa da jih shrani v naslednjo vrsto kjer so bili prejšnič shranjeni podatki.
Se vam že v naprej zahvaljujem
Lp Matevž [Visual studio .NET] Rabim pomoč

Dim Excel As Object
Dim Book As Object
Dim Sheet As Object

'Start a nev workbook in Excel
Excel = CreateObject("Excel.Application")
Book = Excel.Workbooks.Add

'Add data to cells of the first worksheet in the new workbook
Sheet = Book.Worksheets(1)
Sheet.Range("C1").Value = "Datum"
Sheet.Range("D1").Value = "Destinacija"

Sheet.Range("B1:D1:E1:F1:G1:I1:J1:K1:L1:N1:O1:P1:Q1").Font.Bold = True

Sheet.Range("C2").Value = DateTimePicker1.Text
Sheet.Range("D2").Value = Destinacija.Text
' Save the sheet to c:Book1
Book.SaveAs("C:\Book1.xls")
Excel.Quit()
'Exit application
Application.Exit()
End Sub
End Class
To je ta koda katero uporabljam
Lp Matevž

Mi ne dela tud tko k je prej blo
noče niti v excelu narest tabele

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim Excel As Object
Dim Book As Object
Dim Sheet As Object

'Start a nev workbook in Excel
Excel = CreateObject("Excel.Application")
Book = Excel.Workbooks.Add

'Add data to cells of the first worksheet in the new workbook
Sheet = Book.Worksheets(1)
Dim i As Integer
For i = 1 To Sheet.Rows.Count
If Len(Sheet.Range("C" & i).Value) = 0 Then
Exit For
End If
Next i

Sheet.Range("C" & i).Value = "Datum"
Sheet.Range("D" & i).Value = "Destinacija"

'tale replace ti pač te "1" nadomesti s številko vrstice
Sheet.Range(Replace("B1:D1:E1:F1:G1:I1:J1:K1:L1:N1:O1:P1:Q1", "1", i)).Font.Bold = True

Sheet.Range("C" & i).Value = TextBox1.Text
Sheet.Range("D" & i).Value = TextBox2.Text


' Save the sheet to c:Book1
Book.SaveAs("C:\Book1.xls")
Excel.Quit()
'Exit application
Application.Exit()

End Sub
End Class
Tko sem naredil kot si rekel pa mi ne dela tako da bi vskič v novo vrstico napisal
Pa še sedaj mi noče napisati Datum in Destinacija
Tko da bi prosil če kdo ve kao bi se dalo naresti da bi vsakič
Ko bi vpisoval podatke da bi ji shranilo v nslednjo vrstico ki je prazna n+in ne v vrstico ki jr definerana
Tko da bi naslednjič ko bi shranil da bi jo zapisalv v C3 in D3 in ne v C2 inD2
Lepo bi prosil da mi pomagate se vam v naprej zahvaljujem
Lp Matevž

darkolord Najlepša hvala
Deluje
Lp Matevž