Вот сам макрос
Sub Названия()
'
' Названия Макрос
'
'
Selection.Replace What:="Декоративная накладка", Replacement:="Накладка декоративная ", _
LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:= _
False, ReplaceFormat:=False, FormulaVersion:=xlReplaceFormula2
Selection.Replace What:="Держатель", Replacement:="Кронштейн ", _
LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:= _
False, ReplaceFormat:=False, FormulaVersion:=xlReplaceFormula2
Selection.Replace What:="Fan clutch", Replacement:="Муфта вентилятора ", _
LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:= _
False, ReplaceFormat:=False, FormulaVersion:=xlReplaceFormula2
Selection.Replace What:=" \", Replacement:="\", _
LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:= _
False, ReplaceFormat:=False, FormulaVersion:=xlReplaceFormula2
MsgBox "ГОТОВО"
End Sub