Como hacer variable el VLOOKUP y el AVERAGEIF en cuando a filas.

Buenas

Acudo a su colaboración para el siguiente problema que se me presenta, tuve el caso ya solucionado donde necesitaba tener un rango variable.

Ejemplo Antes:

Selection.AutoFill Destination:=Range("E2:E500")

no me servia pues si tenia una tabla diferente con mas de 500 filas estas quedaban vacías.

Gracias a las ayudas en este foro lo corregí de la siguiente forma (creando una variable e insertándola en el rango):

filaUlt = Range("C1").End(xlDown).Row
Selection.AutoFill Destination:=Range("E2:E" & filaUlt)

Ahora trato de hacer algo similar para las formulas VLOOKUP y AVERAGEIF pero no he podido pues tengo un rango fijo de 7708 pero necesito variarlo, a veces es menos y a veces puede ser mayor:

ActiveCell.FormulaR1C1 = "=AVERAGEIF(R2C3:R7708C3,RC[-4],R2C6:R7708C6)"

ActiveCell.FormulaR1C1 = _
"=VLOOKUP(RC[-1],'Promedio Máximos'!R2C3:R7708C7,5,FALSE)"

Agradezco inmensamente su colaboración.