Textbox Eintrag in Tabellenblatt

Habe heute Nacht schon mal die Frage gestellt und Heinz hat mir versucht ein paar Tipps zu geben allerdings haben wir aneinander vorbei geredet.
Mein Prob
Ich habe eine Textbox in die ich Namen eintragen möchte. Der Name wiederum soll in ein Tabellenblatt z.B. in A1 eingetragen werden. Bestätigung durch einen Button mit folgendem Code:

Private Sub CommandButton1_Click()
Sheets("Tabelle1").Range("A1").Value = TextBox1
End Sub

Nun möchte ich einen zweiten, dritten, vierte usw. NAme in die selbe Textbox eingeben allerdings soll der Name jetzt in A2,bzw. A3 usw. eingetragen werden. D.h. Excel soll erkennen das die Zeilen schon beschrieben sind und in die nächstfolgende rüber springen. Wie lautet der dazu gehörige Code?

Gruß und Danke
Markus