Envoyer les données d'une ComboBox

Bonjour,

Avec votre aide, j'aimerais modifier le code ci-dessous.
Celui-ci envoi les données de la Combobox vers la première ligne vide, de la colonne "A", en partant du bas.
J'aimerais compléter ce code de manière qu'il écrive les données de la ComboBox toujours sur la première ligne vide de la colonne "A", en partant du bas, mais sur autant de ligne que de cellules remplies en colonne "B".

Private Sub CommandButton1_Click()
Dim derlig
Application.ScreenUpdating = True
With Sheets("Récapitulatif")
derlig = .Range("A65536").End(xlUp).Row + 1
.Cells(derlig, 1).Value = ComboBox1.Value
End With
Application.ScreenUpdating = False
Unload Me
End Sub

Merci d'avance.