Sub myReplace()
'Выделить ячейки с заменяемыми значениями. Запустить макрос.

    Dim rn As Range
    On Error Resume Next
    Set rn = Intersect(Selection, ActiveSheet.UsedRange)
    On Error GoTo 0
    If rn Is Nothing Then Exit Sub
    
    Application.EnableEvents = False
    Dim Application_Calculation As Long
    Application_Calculation = Application.Calculation
    Application.Calculation = xlCalculationManual
    
    Dim cl As Range
    For Each cl In rn
        cl.Cells(1, 2).Value = Replace(cl.Cells(1, 2).Value, cl.Value, "")
    Next
    
    Application.Calculation = Application_Calculation
    Application.EnableEvents = True
End Sub