Macro to remove spaces in a number

[Howardc1001]

I have numbers in Col C & D that are imported

The numbers have spaces in between for eg 459 221,225 985 etc the should look like 459,221 , 225,985 after running the macro

 Sub ReplaceSpacesbetweenNumbers()
Dim LR As Long

        With Sheets("Data Import")
      LR = Cells(.Rows.Count, "A").End(xlUp).Row
.Range("C1:D" & LR).Replace what:=" ", Replacement:=""
.Range("C1:D" & LR).NumberFormat = "#,#0;(#,#0)"

  End With
        
End Sub