Excel daten aus Userform in Zeile zurück

Private Sub CommandButton33_Click()         'Änderung speichern
Dim XZeile As Long
If ComboBox5.ListIndex = 0 Then
XZeile = [A:a].End(xlUp).Row - 1
Else
XZeile = ComboBox5.ListIndex + 1
End If
Cells(XZeile, 1) = Cells(XZeile - 1, 1)          'neue I
Cells(XZeile, 2) = ComboBox5.Text             'Mitarbeiter
Cells(XZeile, 3) = TextBox6.Text                  'Datum
Cells(XZeile, 4) = TextBox8.Text                  'Kostenstelle
Cells(XZeile, 5) = TextBox7.Text                  'dauer
Cells(XZeile, 6) = TextBox11.Text                'Schichtbeginn
Cells(XZeile, 7) = ComboBox1.Text             'Kürzel
Cells(XZeile, 8) = ComboBox6.Text             'Anlagenbezeichnung
Cells(XZeile, 9) = TextBox1.Text                  'Bereich
Cells(XZeile, 10) = TextBox3.Text                'Fehler
Cells(XZeile, 11) = TextBox4.Text                'Ursache
Cells(XZeile, 12) = TextBox5.Text                'ergr. Maßnamen
Cells(XZeile, 13) = ComboBox4.Text           'Schicht
Cells(XZeile, 15) = ComboBox3.Text           'gelesen durch
Cells(XZeile, 21) = "geändert"                      'Vermerk das Datensatz geändert
Cells(XZeile, 18) = TextBox15.Text              'Schichtende
Cells(XZeile, 20) = CDate(Format(Now, "mm.dd.yy hh:mm"))                'Zeitstempel
End Sub