Macro o funcion de relleno para celdas vacias

[jmmpue]

Crashman agradesco el tiempo que te haz permitido en ver mi problema y con eso me veo satisfecho.
Lo que pasa que al ejecutar esta macro me sale lo siguente:
"se ha producido el error "1004" en tiempo de ejecucion
Error definido porla aplicacion o el objeto"
pongo depurar y me sale sombreado en amarillo esto:
Do Until ActiveCell.Offset(0, 1).Value = "" And ActiveCell.Offset(-1, 0).Value = ""
utilizo el xp poe si en algo te ayuda
nuevamente de agradesco tu atencion.
y posiblemente este cometiendo un error y no lo visualizo .