How to remove last word in a list of cells-

[thursday140]

Good morning,

I have a list of over 6,000 entries and I need to remove the last word in this case "average".
Any ideas. I attempted to use the text to column but there's no dashes only spaces so it's a mess.

2012 SESAMESTREET-0001 Average
2090 CAPTAIN AMERICA-0002 Average
2151 BROADWAYGYM-0001 Average
221 BEACH AVENUE S221EAS-0001 Average
230 MIDDLE ESSEX PARBROWHAR-0011 Average

Any help is appreciated!

[DannyJ]

=iferror(left(trim(a2),find("~",substitute(a2," ","~",len(trim(a2))-len(substitute(trim(a2)," ",""))))-1)," ")

[Phuocam]

Or try this ...

=LEFT(A1,LEN(A1)-1-LEN(TRIM(RIGHT(SUBSTITUTE(A1," ",REPT(" ",200)),200))))

[thursday140]

It worked thanks a bunch!!

[BoredWorker]

Would a Replace function in excel is faster?

Ctrl + H