¿Cómo puedo hacer para que poniendo un valor en A1 se repita el mismo valor en el rango D1:D2000?

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.