Excel - Rellenar hacia abajo

Buenos días a todos, tengo el sieguiente problema, espero alguien me pueda asesorar, necesito que la siguiente macro se repita una y otra vez pero únicamente en un rango previamente seleccionado manualmente

Sub rellenar()

Range("a1").Select
Do While Not IsEmpty(ActiveCell)
ActiveCell.Offset(1, 0).Select
Loop
Selection.FillDown

End sub

Lo que quiero es rellenar las celdas vacías hacia abajo copiando la información que está en la celda superior,

o si tienen una idea mejor agradecería me la dijeran por favor...

Espero me haya explicado bien.
Saludos

Si entendí bien lo que haces es seleccionar un número x de celdas y al aplicar la macro. en las celdas seleccionadas se copia el valor que contiene la última celda con datos en la columna. Si es así te tengo una solución:

Hice una pequeñas modificaciones a la macro que publicaste.

Sub Rellenar()
'Declaro dos variables la primera Rango que almacenará el la dirección de las
'celdas seleccionadas y ValorCelda que almacenará el último valor ingresado en
'la Columna.
Dim Rango, ValorCelda As String

Rango = Selection.Address

Range("a1").Select

Do While Not IsEmpty(ActiveCell)
ValorCelda = ActiveCell.Value
ActiveCell.Offset(1, 0).Select
Loop

Range(Rango).Value = ValorCelda

End Sub

Espero te sirva.

Saludos.

HOLA DAVID. EXCEL OFRECE UN COMANDO QUE PERMITE HACER LO QUE USTED NECESITA. LOS PASOS SON:
1. SOMBREAR LA COLUMNA O REGION QUE TIENE LOS DATOS Y CELDAS VACIAS.
2. OPRIMIR TECLA F5.
3. CLIC BOTON "ESPECIAL"
4. SELECCIONAR CELDAS VACIAS
5. ACEPTAR. (OBSERVAR QUE SOLO SELECCIONA LAS CELDAS VACIAS)
6.EN LA POSICIÓN QUE QUEDÓ EXCEL HACER UNA FÓRMULA =FLECHA ARRIBA. ES DECIR, QUE LA CELDA DE ABAJO DEBE TENER EL VALOR DE LA CELDA DE ARRIBA
7. MUY IMPORTANTE: SE DEBE DAR CONTROL - ENTER PARA FINALIZAR.
8. LUEGO COPIA Y PEGA CON PEGADO ESPECIAL PARA QUITAR LAS FÓRMULAS.

ME CUENTA SI LE FUNCIONÓ.

CARLOS LOPEZ - COLOMBIA.

Muchas Gracias Carlos, funcionó excelente

Oye, tu comentario esta excelente. Sigue con tus tips.

WOW! Qué buen truco!