Con la propiedad .formula
puedes asignarle la formula al rango de celdas.
Puse average
en vez de promedio
(en mi ordenador Promedio
no lo reconoce)
y el rango de la formula es G:G
, no G*:G*
Sub CambiarFormula()
Dim celda_inicio As String
Dim celda_fin As String
Dim nueva_formula As String
celda_inicio = "A1"
celda_fin = "A10"
nueva_formula = "=Average(G:G)"
Range(celda_inicio, celda_fin).formula = nueva_formula
End Sub