Rellenar Celdas

Código Macro

'Este código es para rellenar las celdas seleccionadas con los datos de la 1° celda seleccionada...

'Rellenar celdas
Sub Rellenar_Celdas()
Dim Celda As Range
For Each Celda In Selection
If Celda = "" Then
Range(Celda.Address).Value = Range(Celda.Address).Offset(-1, 0).Value
End If
Next Celda
End Sub
 

Para agregar un macro, deberá abrir el editor de VBA en el libro de Excel abierto al cual desea agregarlo, mantener apretado la tecla "ALT + F11", luego seleccionar la solapa "INSERTAR", y desde ahí elegir "MODULO".

Y en el módulo pegar el código completo del macro, para luego poder usarlo.

Para Usar el macro, volver a la hoja de Excel de la siguiente manera, mantener apretado la tecla "ALT + F11", o minimizando o cerrando el editor de VBA.

Y en la hoja de cálculo insertar una FORMA o IMAGEN, luego hacerle clic derecho a la misma y seleccionar, "ASIGNAR MACRO", y elegir el macro deseado que de antemano hemos copiado.

Recuerde que el libro de Excel deberá guardarlo como "LIBRO DE EXCEL HABILITADO PARA MACROS"...