Daten in Tabelle einfügen per Vba

Private Sub CBO_Click()
'Die Variable last liefert die erste freie Zeile im Tabellenblatt
Dim last As Integer
last = ActiveSheet.Cells(Rows.Count, 8).End(xlUp).Row + 1
'Informationen der UserForm in das Tabellenblatt eintragen
'ActiveSheet.Cells(last, 1).Value = CDate(Neuer_Eintrag.TBD.Value)
ActiveSheet.Cells(last, 2).Value = Neuer_Eintrag.TBSch.Value
ActiveSheet.Cells(last, 3).Value = Neuer_Eintrag.CBS.Value
ActiveSheet.Cells(last, 4).Value = Neuer_Eintrag.CBF.Value
ActiveSheet.Cells(last, 5).Value = Neuer_Eintrag.TBT.Value
ActiveSheet.Cells(last, 6).Value = Neuer_Eintrag.TBN.Value
ActiveSheet.Cells(last, 7).Value = Neuer_Eintrag.TBG.Value
ActiveSheet.Cells(last, 8).Value = Neuer_Eintrag.TBK.Value
ActiveSheet.Cells(last, 9).Value = Neuer_Eintrag.TBB.Value
End Sub