Makro Programmierung Excel - VB

[atgis]

Was funktionieren würde wäre:

Code:

Range("A2").Value = Range("A2").Value + 1

Sheets("Tabelle1").Cells(Range("A2").Value, 1).Value = Date
Sheets("tabelle1").Cells(Range("A2").Value, 2).Value = TextBox1
Sheets("tabelle1").Cells(Range("A2").Value, 3).Value = TextBox2
Sheets("tabelle1").Cells(Range("A2").Value, 4).Value = Time$
Sheets("tabelle1").Cells(Range("A2").Value, 5).Value = TextBox3

Doch fangen die Einträge erst bei der Zeile A39670 an