MACRO AUTORELLENAR

Una vez más...

Tengo la siguiente instrucción que funciona perfectamente, pero tengo
una duda que no he logrado resolver:

Sub rellenar()
ActiveCell.AutoFill Destination:=Range("d2:d" &
Range("C65535").End(xlUp).Row)
End Sub

Mi pregunta es: La instrucción anterior rellena las celdas hacia abajo
con una fórmula hasta la última celda con información, pero siempre y
cuando la fórmula a copiar, se encuentre en la celda d2.
Lo que quiero es que pueda rellenar dependiendo de la celda activa en
la que me encuentre pero no se como. Espero me puedan ayudar.

Atte. Fernanda desde Perú