Frage Formular neue Zeile einfügen

Private Sub Eingabe_Click()
Range("A2") = KW
Range("B2") = Datum
Range("C2") = Gruppe
Range("D2") = Medium
Range("E2") = Status
Unload Me
Dim last As Integer
last = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row + 1
AvtiveSheet.Cells(last, 1).Value = Contentplan.Text_Begriff.Value
AvtiveSheet.Cells(last, 2).Value = Contentplan.Text_Datum.Value
AvtiveSheet.Cells(last, 3).Value = Contentplan.Text_Zahl.Value
AvtiveSheet.Cells(last, 4).Value = Contentplan.Text_Begriff.Value
AvtiveSheet.Cells(last, 5).Value = Contentplan.Text_Begriff.Value
End Sub

Private Sub UserForm_Initialize()
With Contentplan.Medium
.AddItem "Instagram"
.AddItem "Facebook"
.AddItem "Block"
End With
With Contentplan.Status
.AddItem "verwendet"
.AddItem "nicht verwendet"
End With
End Sub