Buscar y reemlazar, dentro de una fórmula

Tengo esta fórmula

=IMPORTARDATOSDINAMICOS(CONCATENAR(B5);'TD General'!$B$10;"MES ";CONCATENAR(B4))

la misma extrae los datos de un mes de una tabla dinámica, lo que trate de hacer en una macro es cambiar la fórmula para que me tire otros resultados, por ejemplo los anuales, sacando la parte de la fórmula que se refiere al mes.-

Acá la dejo explicada pero no sé por qué no funciona.

Sub Anual()
'
'Macro1 Macro
'Para todo el año
'rango donde se tendría que cambiar la fórmula
Range("C5:C7").Select
'Muestro las fórmulas
ActiveWindow.DisplayFormulas = True
'Hago el cambio
Selection.Replace What:=";""MES "";CONCATENAR(B4))", Replacement:=")", _
ReplaceFormat:=False
'Se repite lo mismo en este rango
Range("E9:E69").Select
Selection.Replace What:=";""MES "";CONCATENAR(B4))", Replacement:=")", _
LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:= _
False, ReplaceFormat:=False
ActiveWindow.DisplayFormulas = False
End Sub