Con la propiedad .formula
puedes asignarle la formula al rango de celdas.
Puse average
en vez de promedio
y slope
en vez de pendiente
porque en VBA usa los nombres en inglés
Sub prueba()
Dim cell As Range
Dim celda_inicio As String
Dim celda_fin As String
celda_inicio = "A7"
celda_fin = "A15"
Dim formula_vieja As String
Dim posicion As Integer
For Each cell In Range(celda_inicio, celda_fin)
formula_vieja = cell.formula
formula_vieja = Replace(formula_vieja, "SLOPE", "AVERAGE")
posicion = InStr(1, formula_vieja, ",")
If posicion > 0 Then
cell.formula = Left(formula_vieja, posicion - 1) + ")"
End If
Next
End Sub
Funcionamiento:
Va celda por celda en el rango especificado con las variables, y coge la formula actual y cambia slope
por average
Luego busca donde está la coma . La formula en ingles no es =PENDIENTE(G33:G60;C33:C60)
si no =PENDIENTE(G33:G60,C33:C60)
Si encuentra la coma, coge el cacho del string
de la izquierda y luego añado un ")"
para cerrar la formula