Office: (Office 2010) Mit Button, Adresse in Tabelle einfügen und diese in Kombinationsfeld ergänzen

Ich möchte aus einem Excel Dokument das für eine Bus ist, der an verschiedenen Orten steht, zu gewissen Zeiten, die Adressen mit einem Button dann in eine Tabelle aufnehmen.

Diese Standorte (Adressen) sind z.B. 10. Standorte und sind in dem Tab „Standorte“ aufgelistet.

Also was ich habe:
Ich habe ein Kombinationsfeld mit Standorten. Wenn einer der Standorte ausgewählt wird werden die Zellen C5=Name, C7=Stasse bzw. Platz und C9=PLZ mit Ort. Alles easy.
Nun kommt es aber mal vor das es Standorte gibt, die außer der Reihe, also nicht in der Liste des Kombinationsfeld stehen, besucht werden.
Deshalb würde ich es gern so haben, das ich den neuen Standort mit den Daten in C5, C7 u. C9 eingebe und mit einem Button dann in meine vorhandenen Tabelle ergänzt (erweitert) und wenn es z.B. 10. Standorte waren auf 11. erweitert wird. Und auch 11. Standorte nun in meinem Kombinationsfeldes auszuwählen sind.
Der Button muss erkennen wie viele Standorte schon in der Tabelle sind, da es auch Busse gibt, die z.B. nur 6. Standorte haben oder dergleichen.

Deswegen meine Frage:
Wie bekomme ich das hin, dass die Liste des Kombinationsfeld automatisch weiß wo sie endet und mit neuen Daten auffüllen kann.
Und zudem, weiß ich nicht wie ich in den anderen Tab komme in dem die Liste des Kombinationsfeld sich befindet. Mein Tab heißt Standort.


Das ist mein Code für den Button, der aber nicht funktioniert, da ich nicht an der nächsten freien Spalte der Liste des Kombinationsfeld komme sondern nur in Spalte 12. Benutze ich den Button noch einmal würde er überschreiben.

Sub Makro4()
'
' Neuer Standort
'
ActiveSheet.Unprotect 'Password:="Passwortname" 'Blattschutz aus

With Worksheets("KundenAuft.")
.Range("C5:G5").Select
Selection.Copy
With Worksheets("Kunde")
.Range("A12").Select
ActiveSheet.Paste
With Worksheets("KundenAuft.")
.Range("C5") = "=WENN(T5>0;T5;"")"

With Worksheets("KundenAuft.")
.Range("C7:G7").Select
Application.CutCopyMode = False
Selection.Copy
With Worksheets("Kunde")
.Range("G12").Select
ActiveSheet.Paste
With Worksheets("KundenAuft.")
.Range("C7") = "=INDEX(Kunden!G2:G11;Kunden!C1;1)"

With Worksheets("KundenAuft.")
.Range("C9:G9").Select
Application.CutCopyMode = False
Selection.Copy
With Worksheets("Kunde")
.Range("H12").Select
ActiveSheet.Paste
With Worksheets("KundenAuft.")
.Range("C5") = "=INDEX(Kunden!H2:H11;Kunden!C1;1)"
ActiveSheet.Protect 'Password:="Passwortname", UserInterfaceOnly:=True, DrawingObjects:=True, Contents:=True, Scenarios:=True 'Blattschutz ein

End Sub


Ich hoffe ich habe mich verständlich ausgedrückt. :)

Gruß leo4teo