Need help with loop, concatenate and trim in Excel, VBA

[cp713a]

Hi,

I need some help. I have a long list of items in column A with extra spaces, such as: Samsung ', I'd like to loop thru the entire column A, trim out all the extra spaces, I think application.worksheetFunction.Trim(A1), then concatenate the a word "Equipment", the output result as: "Samsung Equipment" in the same column A.

I was able to do a single item, but not able to get the loop, which I'm not familiar with.

Much appreciate it,