If I understand you correctly, all you want to do is eliminate spaces within text.
This macro does that for column A, by replacing a spacebar character with nothing.
Modify for range; if I'm misinterpreting, please repost.
Sub DeleteSpaces()
Columns("A:A").Replace What:=" ", Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByColumns, MatchCase:=False
End Sub
Tom Urtis