Sub ss()  
Dim rng As Range
 
Set rng = Selection
 
For Each rng In Selection   rng.Replace What:=" ", Replacement:="", LookAt:=xlPart, _  
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _  
ReplaceFormat:=False  
Next  
End Sub

Sub TEST1()  
Application.ScreenUpdating = False  
With CreateObject("vbscript.regexp")  
.Global = True  
.Pattern = "\s*"  
For j = 1 To Cells(Rows.Count, 1).End(3).Row  
Cells(j, 13) = .Replace(Cells(j, 13), "")  
Next j  
End With  
Application.ScreenUpdating = True  
End Sub

Sub TEST2()  
Application.ScreenUpdating = False  
With CreateObject("vbscript.regexp")  
.Global = True  
.Pattern = "\s*"  
For j = 1 To Cells(Rows.Count, 1).End(xlUp).Row  
Cells(j, 13) = .Replace(Cells(j, 13), "")  
Next j  
End With  
Application.ScreenUpdating = True  
End Sub

Sub TEST3()  
Application.ScreenUpdating = False  
With CreateObject("vbscript.regexp")  
.Global = True  
.Pattern = "\s*"  
For j = 1 To Cells(Rows.Count, 1).End(xlUp).Row  
For i = 1 To 33  
Cells(j, i) = .Replace(Cells(j, i), "")  
Next i  
Next j  
End With  
Application.ScreenUpdating = True  
End Sub