Primero deberías postear el código que llevas.
Una ayuda:
Código VBA:
Ver originalOption Explicit
Dim cadena As String
Dim i As Integer
Private Sub UserForm_Initialize()
For i = 1 To 21
cadena = " " + ActiveSheet.Range("B" + CStr(i)).Value
ListBox1.AddItem cadena
Next i
End Sub
Lo que hace este código es mostrarme los datos de una columna en un ListBox.
Podrías intentar hacer un algoritmo:
Código pseudocódigo:
Ver originalSi celdaVacia == True entonces
# llenar celda
...
...