Как удалить контент в ячейке после определенного слова

Question

У меня есть имена и соответствующие им зарплаты рядом друг с другом.

Мне нужно удалить все в ячейке имени после имени.

Образец данных:

Мне нужно все, что удалено после "ABC Staff", включая само слово, и мне нужно применить этона большое количество имен в столбце одновременно.

Я нашел ответ на первую часть здесь:

Excel VBA - удалить строковое содержимое после * word *

Как мне заставить это работать для всех имен одновременно?

name = "NAME ABC Staff xyz" 
ret = Left(Name, InStr(1, name, "ABC Staff") - 1)
Result: NAME

Answer 1

Sub Test()

Dim ws As Worksheet: Set ws = ThisWorkbook.Sheets("Sheet1")
Dim LR As Long, MyCell As Range

LR = ws.Range("A" & ws.Rows.Count).End(xlUp).Row

For Each MyCell In ws.Range("A2:A" & LR)
    If InStr(MyCell, "ABC Staff") Then
        MyCell.Offset(, 3) = Left(MyCell, InStr(MyCell, "ABC Staff") - 2)
    ElseIf InStr(MyCell, "Private") Then
        MyCell.Offset(, 3) = Left(MyCell, InStr(MyCell, "Private") - 2)
    Else
        'What if "ABC Staff" nor "Private" exist in the cell?
    End If
Next MyCell

End Sub