Borrar espacion en blanco

Hola te escribo a ver si me puedes ayudar

mira lo que pasa es que bajo informacion de otros programas a excel y luego esto les quito

los espacios en blanco

tengo el siguiente codigo

c.Replace What:=Chr(160), Replacement:=" ", LookAt:=xlPart, SearchOrder:=xlByColumns, MatchCase:=True
c.FormulaLocal = "=ESPACIOS(" & Mid(c.FormulaLocal, 2) & ")"

de primero funcionaba bien solo que ahora no quiere, probe con otros macros, pero esta es la que funciona mejor, por que como que inserta una formula a la vez y limpia los numeros o texto a la perfecion quitandome todos los espacios que hay en las celdad , solo que ahora no quiere funcionar,

si me podrias ayudar con esta macro.

gracias!!!