VBA: удалить все после (и включая) определенного символа

У меня есть столбец с ячейками, содержащими такие данные, как:

PY=486776347 PY 7031493729 

Я пытаюсь динамически удалить все после и включая пространство в этом экземпляре, но было бы полезно знать, как это сделать для любого персонажа.

Я пробовал это, безуспешно:

 Columns("P:P").Replace What:=" ""*", Replacement:="", LookAt:=xlPart 

а также

 [P:P].Replace What:=" ""*", Replacement:="", LookAt:=xlPart 'should be effectively the same function as above 

 Columns("P:P").Replace What:=" " & "*", Replacement:="", LookAt:=xlPart 

 Columns("P:P").Replace What:=" *", Replacement:="", LookAt:=xlPart 

 Columns("P:P").Replace What:="3*", Replacement:="", LookAt:=xlPart