I have some alpha Numeric number in Column-B like below. Starts from cell B2

DC-1
D C - 1
D C-2
DC-2

DC- 4

DC-4
DC-4


DC -4
10 02 4


I need VBA code to Remove all spaces in the data. It should remove space from B2 to till the end of the last cell in column B

like below

DC-1
DC-1
DC-2
DC-2

DC-4

DC-4
DC-4


DC-4
10024

Need only VBA. Not Formula