Macro o funcion de relleno para celdas vacias

[jmmpue]

trabajo en una hoja de excel necesito lo sig:
tengo tres columnas A,B,C con 3000 filas(rows), en la columna A y C los datos estan competos,pero en la columna B tengo casillas o celdas vacias y tambien datos,quiero que en la casilla o celda vacia me ponga el nombre o dato de arriba.
lo que he hecho es lo siguente:
me pongo en la celda B1 pongo el puntero del mause en la parte inferior derecha y sale una cruz le doy doble click y se rellena llevando una secuencia,pero no lo quiero con secuencia por lo que presiono la tecla CTRL+j y me lo deja como quiero,pero estar haciendo esto hasta llegar a los 3000 registro se me hace repetitivo.
¿hay alguna manera de evitar este trabajo repetitivo por medio de una funcion o macro?
por su atencio gracias

[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!

[jmmpue]

Iniciado por 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!

gracia la verdad si me sirvio esta macro y me minimizo mi trabajo,el problema es que a veces son 3000 registro otras veces son 1000 ¿como le hago para que me busque el ultimo registro y lo rellene hasta donde es.
supongamos que en la columna "A" y la columna "C" tienen ahora 1023 registos y en la columna B el ultimo registro llega hasta 900 y deseo rellenar exactamente hasta los 1023
de ante mano muchas gracias por tu tiempo.

[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

[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 .

[Crashman]

Tienes toda la razon lo que sucede es que el valor entre parentesis es asi:
el primero es para filas y el segundo para columnas entonces yo le habia puesto que buscara la columna y una fila y esta mal la instruccion es asi:

Código:

do Until activecell.offset(0,1).value = "" and  activecell.offset(0,-1).value = ""

[jmmpue]

Iniciado por Crashman

Tienes toda la razon lo que sucede es que el valor entre parentesis es asi:
el primero es para filas y el segundo para columnas entonces yo le habia puesto que buscara la columna y una fila y esta mal la instruccion es asi:

Código:

do Until activecell.offset(0,1).value = "" and  activecell.offset(0,-1).value = ""

ok muchas gracias en verdad ya esta funcionando bien nuevamente reitero mi agradecimientoa a quienes nos dedican su tiempo y sobre todo sus conocientos para sacar de apuros a varias, personas de antemano gracias