VBA to remove space on for, between, end number

[kirana2014]

Dear All,

Please help how to remove space on for, between, end number
I use below VBA

Sub deletespace()

     
    Dim rRange As Range
    
    Set rRange = ActiveSheet.Range("A2:A4")
    rRange.Replace What:=Space(1), Replacement:="", _
          SearchOrder:=xlByColumns, MatchCase:=True
          
    Set rRange = rRange.Find(What:=Space(1))
    
    If Not rRange Is Nothing Then
        
       
    End If
    
End Sub