delete/extract various text strings from cells

And maybe
Just in case

Sub test()
    Dim x As String
    Dim elem As Range
    Dim rg As Range
    x = Join(Split(InputBox("enter you text seperated by space")), "|")
    Set rg = Sheets("sheet1").Cells(2, 1).CurrentRegion
    With CreateObject("VBScript.RegExp")
        .Global = True
        .Pattern = x
        For Each elem In rg
            elem.Value = .Replace(elem, "")
        Next
    End With
End Sub