Cita:
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.