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

Columns("G:G").Select
    Selection.Replace What:=" ", Replacement:="", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
Columns("A:A").Select
    Selection.Replace What:=" ", Replacement:="", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False

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