Commandbutton, Code erweitern

Private Sub CommandButton1_Click()
'Eintragen der Auswahlwerte - Beispiel
Dim Spalte As Long
If Me.ComboBox1.ListIndex  -1 Then
Spalte = ActiveCell.Count
With ActiveSheet
.Cells(19, 1) = Me.DTPicker1.Value
.Cells(1, 1) = Me.ComboBox1.Value
If Me.ComboBox2.ListIndex  -1 Then .Cells(3, 1) = Me.ComboBox2.Value
If Me.ComboBox3.ListIndex  -1 Then .Cells(4, 1) = Me.ComboBox3.Value
If Me.ComboBox4.ListIndex  -1 Then .Cells(5, 1) = Me.ComboBox4.Value
If Me.ComboBox5.ListIndex  -1 Then .Cells(6, 1) = Me.ComboBox5.Value
If Me.ComboBox6.ListIndex  -1 Then .Cells(19, 3) = Me.ComboBox6.Value
End With
ActiveCell.Offset(1, 0).Select
Else
MsgBox "Bitte erst Wert in Combobox1 auswählen", vbInformation, _
"Makro: Commandbutton1_Click"
End If
End Sub