Problema con macro y autofill

Hola,
Estoy haciendo una macro que me copie un valor y lo arrastre hacia
abajo hasta la última fila que contenga información. El problema es
que el número de filas varía y no sé como decirselo a Excel.
Éste es el codigo que tengo:

Sheets("Hoja1").Select
Range("D1").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Hoja2").Select
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Selection.AutoFill Destination:=ActiveCell.Range("A1:A9")

El problema lo tengo en la última línea de código, ya que el rango
variará cada vez... ¿cómo hacerlo?

Gracias por las respuestas.
Saludos