Con fórmula, tendrías que hacer lo siguiente:
1. Escribe la siguiente fórmula en la celda D1
=$A$1
2. Copia o arrastra la fórmula desde la celda D2 hasta la celda D2000
Listo! Cada que cambies el valor en A1, las celdas de D1 a D2000 serán iguales a A1
Si lo quieres con macro. Esta es la macro:
Private Sub Worksheet_Change(ByVal Target As Range)
'Por.DAM
If Target.Address = "$A$1" Then Range("D1:D2000") = Range("A1")
End Sub
Sigue las Instrucciones para poner la macro en worksheet
1. Abre tu libro de excel
2. Para abrir Vba-macros y poder pegar la macro, Presiona Alt + F11
3. Del lado izquierdo dice: VBAProject, abajo dale doble click a worksheet(tu hoja)
4. Del lado derecho copia la macro
Listo!, cada vez que pongas un valor en la celda A1 y presiones Enter la macro se activa y pone el valor de A1 en las celdas de D1 a D2000
Saludos. Dante Amor
Recuerda valorar la respuesta.