Señores favor necesito modificar la siguiente macro

La macro debe seleccionar desde la celda d2 a la q2 y copiar las formulas hacia abajo, pero esto debe hacerlo comparando la columna a

es decir la columna A tiene datos hasta la la fila 25 por ejemplo, la macro debiera seleccionar las celdas desde d2 hasta q2 y completar con formulas hacia abajo equiparándose con la columna A

Sheets("paso 2").Select
libre = Range("r65536").End(xlUp).Row
ulti = Range("A65536").End(xlUp).Row
Range("r" & libre).Copy
Range("r" & libre + 1 & ":r" & ulti).PasteSpecial Paste:=xlFormulas, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Application.CutCopyMode = False