Macro o funcion de relleno para celdas vacias

[Crashman]

Prueba esto

Código:

Sub Poner_dato()
Application.ScreenUpdating = False
'la celda B1 debe contener algún dato o cifra
Range("B1").Activate
'que no pare hasta que la celda A y C este vacia, puedes cambiar el 'condicional por or si quieres que busque solo una columna vacia ya sea a o c
do Until activecell.offset(0,1).value = "" and  activecell.offset(-1,0).value = ""
    If IsEmpty(ActiveCell) Then
       ActiveCell.Value = ActiveCell.Offset(-1, 0)
    End If
     
    ActiveCell.Offset(1, 0).Select
loop
Application.ScreenUpdating = True
End Sub