Como ajustar uma macro do Excel para autopreenchimento de tamanho variável

Question

Gravei a macro abaixo, mas não sei como ajustá-la para que ela trabalhe em comprimentos variáveis de linhas.

Sub AutoFillVariableLength()
'
' AutoFillVariableLength Macro
'
' Keyboard Shortcut: Ctrl+Shift+L
'
    Selection.AutoFill Destination:=ActiveCell.Range("A1:A16")
    ActiveCell.Range("A1:A16").Select
    Selection.End(xlDown).Select
End Sub