Remove brackets and data inside via macros example given

I have a document with about which has 25k+ rows of data and I'm wanting to remove part of each cell (if it exists)

Example of RAW data:

Lasso
Frank (END)
Elder
Jude 
Felipe (FROM)
John (DES)

Currently I'm using a slow method below, I'm wondering if Split could be used...

Sub RemoveN()
        With Range("H:H")
            .Replace What:=" (FROM)", Replacement:="", LookAt:=xlPart, MatchCase:=False
            .Replace What:=" (END)", Replacement:="", LookAt:=xlPart, MatchCase:=False
            .Replace What:=" (LEG)", Replacement:="", LookAt:=xlPart, MatchCase:=False
        End With

End Sub

Final Data after removed...

Lasso
Frank
Elder
Jude 
Felipe
John