Macro o funcion de relleno para celdas vacias

[3pies]

Prueba esta macro:

Código:

Sub Poner_dato()
Application.ScreenUpdating = False
'la celda B1 debe contener algún dato o cifra
Range("B1").Activate
For i = 1 To 3000
    If IsEmpty(ActiveCell) Then
       ActiveCell.Value = ActiveCell.Offset(-1, 0)
    End If
    ActiveCell.Offset(1, 0).Select
Next
Application.ScreenUpdating = True
End Sub

Saluten!