¿Expresión de variable de fila de área de RANGO VBA?

Sub ss()

Dim iamp; 'Define la variable como la fila máxima

i = Range("a1048576").End(xlUp). Fila

Rango("D2").Select

Selección.Autocompletar Destino: =Rango(Celdas(2, 4), Celdas(i, 4))

End Sub

i es una variable, simplemente elimine las comillas externas.