Unsure if its faster but consider:

Sub test()
Cells.Replace What:=" ", Replacement:="", LookAt:=xlPart, SearchOrder
_
:=xlByRows, MatchCase:=False, SearchFormat:=False,
ReplaceFormat:=False
End Sub


Obviously you could speed it even further by changing Cells. to a
specific range.