Reemplazar un campo de una formula.

Hola. Quisiera que me contestaran esta pregunta lo mas rapido posible por favor. Gracias

Ok Mi pregunta es como Reemplazar campo de una formula. Bueno como ejemplo:

Tengo esta formula por decirlo asi: =CONTAR.SI(E$9:E$14;"administración") y quisiera cambiarla con un botón de macros a esto =CONTAR.SI(E$9:E$14;"contabilidad") ò =CONTAR.SI(E$20:E$50;"administración") intente con esto que encontré buscándolo

Sub Triángulorectángulo_Haga_clic_en()
Dim mirango As Range
Dim celda As Range
Dim busca As String
Dim Remplaza As String
Dim aux1 As String
Dim aux2 As String
Dim resbusc As String
busca = "E$9:E$14"
Remplaza = "E$20:E$50"
Range("a1").Select
Set mirango = Range(ActiveCell, ActiveCell.SpecialCells(xlLastCell))
mirango.Select
For Each celda In mirango
If VarType(celda.Value) = vbString Then
y = 1
respbusc = InStr(y, celda.Value, busca, 1)
If respbusc <> 0 Then
If Len(celda.Value) = Len(busca) Then
celda.Value = Remplaza
Else
If respbusc = 1 Then
aux1 = " "
Else
aux1 = Mid(celda.Value, respbusc - 1, 1)
End If
aux2 = Mid$(celda.Value, respbusc + Len(busca), 1)
If aux1 = " " And (aux2 = " " Or aux2 = "") Then celda.Value = Replace(celda.Value, busca, Remplaza, 1, 1)
End If
End If
End If
Next
End Sub

Pero no me lo cambia ya que la formula se transforma en numero cuando cuenta la palabra administración o contabilidad asi que creo aver explicado bien mi problema para que me puedan ayudar asi que Gracias.