Aumentar rango de Celda con macros en Excel

Cordial Saludo.
Tengo la duda de como hacer que los rangos crezcan de acuerdo a una variable...
Por ejemplo:
Yo tengo un rando seleccionado, que es fijo:
Range("A1:F1").Select
Pero lo que yo quiero es lo siguiente:
Function aumentar()
j = 20
For i = 1 Then j
Range("Ai:Fi").Select
Next i
End Function
Lo que quiero que el rango crezca a la medida que crezca la variable i, pero no se como escribir la línea de código, ya que como la escribí en el ejemplo presenta error.
Espero que mi ejemplo este bien explicado y me puedan ayudar.