Werte aus Combo und Textbox in Zeile ohne Leerzeil

Hallo Excelprofis,
ich habe ein UserForm mit Comboboxen und Textfeldern. Mit nachfolgendem Code fülle ich die Comboboxen und schreibe die Werte per Commandbutton in verschiedene Zellen.
Bei den Comboboxen 7 bis 21 und den Textfeldern 6 bis 10 soll es aber so sein, dass der Inhalt bei Knopfdruck ohne Leerzeile in den Bereich B22:B42 eingetragen werden soll.
Mit dem was ich im Netz gefunden habe kam ich nicht weiter.

Private Sub UserForm_Initialize()
With Me.ComboBox3
.AddItem "bis"
.AddItem "ab"
.ListIndex = 0
End With
With Me.ComboBox1
.RowSource = "Userform!A3:A66"
.ListIndex = -1
End With
With Me.ComboBox2
.RowSource = "Zeit"
.ListIndex = -1
End With
With Me.ComboBox4
.RowSource = "Zeit"
.ListIndex = -1
End With
With Me.ComboBox5
.RowSource = "Etage"
.ListIndex = -1
End With
With Me.ComboBox6
.RowSource = "Dauer"
.ListIndex = -1
End With
'With Me.ComboBox7
'.RowSource = "Artikel"
'.ListIndex = -1
'End With
With Me.ComboBox8
.RowSource = "Artikel"
.ListIndex = -1
End With
With Me.ComboBox9
.RowSource = "Artikel"
.ListIndex = -1
End With
'bis Combobox21
End Sub

Private Sub CommandButton1_Click()
Sheets("Lieferauftrag").Activate
Range("C11") = ComboBox1.Text 'Datum
Range("F11") = ComboBox2.Text ' Von
Range("G11") = ComboBox3.Text   '"bis oder ab"
Range("H11") = ComboBox4.Text 'Bis
Range("B14").Value = Me.TextBox1.Text 'Name
Range("B20").Value = Me.TextBox2.Text 'Telefon
Range("B16").Value = Me.TextBox3.Text & " " & Me.TextBox4.Text 'Strasse + Nummer
Range("F16") = ComboBox5.Text 'Etage
Range("B18").Value = Me.TextBox5.Text 'Ort
Range("B43").Value = Me.TextBox11.Text 'Bemerkungen
Range("B22") = ComboBox7.Text 'Artikel
End Sub