Public Sub www()
    Dim c As Range, a, i&, n&, m&
    For Each c In Selection.Cells
        a = Split(c.Value, " ")
        m = Empty: n = Empty
        For i = 0 To UBound(a)
            If UBound(Filter(a, a(i), True)) > n Then
            m = i: n = UBound(Filter(a, a(i)))
            End If
        Next
        a(m) = "": c(1, 2) = Application.Trim(Join(a, " "))
    Next
End Sub

Public Sub www()
    Dim c As Range, a, i&, n&, m&, s$
    For Each c In UsedRange.Columns(1).Cells
    s = Application.Trim(c.Value)
    Do
        a = Split(s, " "): m = Empty: n = Empty
        For i = 0 To UBound(a)
            If UBound(Filter(a, a(i), True)) > n Then _
            m = i: n = UBound(Filter(a, a(i)))
        Next
        If n Then a(m) = "": s = Application.Trim(Join(a, " "))
    Loop Until n = 0
    c = s
    Next
End Sub