Code ergänzen, Werte aus Userform eintragen

[PBCJürgen]

Hallo, haben diesen code und würde in gerne noch erweitern.

Private Sub Button_Übernehmen_Click()

Dim Last As Integer
Last = Sheets("Gästeliste").Cells(Rows.Count, 1).End(xlUp).Row + 1

Sheets("Gästeliste").Cells(Last, 1).Value = Gast.TextDatum.Value
Sheets("Gästeliste").Cells(Last, 2).Value = Gast.TextVorname.Value
Sheets("Gästeliste").Cells(Last, 3).Value = Gast.TextName.Value
Sheets("Gästeliste").Cells(Last, 4).Value = Gast.TextVerein.Value

'hier soll meine Ergänzung noch hin

'im Sheet("Tagesblatt") Vorname und Name aus "TextVorname und TextName" ab K22 bis Max K35 eintragen
'Peter Lustig
'Karl Blau
' ....
'Letzetr eintrag wäre dan K35

TextVorname = ""
TextName = ""
TextVerein = ""

End Sub


wäre super wenn mir jemand helfen würde
Danke