Delete Trailing Spaces without Removing leading zeros WITHOUT TRIM

OK here is my problem. I am designing a tool for my company that all the user has to do it dump in data and many pages do various things based off the data. Everything is working perfect except I realized the data the user is dumping in has trailing spaces in column A and G. I've dealt with this problem before so I created a quick button with the vba macro attached

Please Login or Register  to view this content.

The column G removal of spaces works perfectly. Howver the column A has data that has leading zeros (i.e. 0000345). So when I run this macro the data returns without spaces but for some reason also returns without my leading zeros (i.e. 345). How can I modify this so it keeps my leading zeros intact. Thanks

I could use the TRIM function in vba instead but i don't think I can use it in the spreadsheet as =TRIM(A1) because the are entering new data into the spreadsheet everytime

I suppose one thing I could do is put the trim function in another tab and hide that tab but that would require that I change all my cell references in other tabs...