Formater aktive celler

Hej,

I de celler jeg har markeret ønsker jeg at formatere ved at replace " " med "" samt at formatere med 1.000 deler og ingen decimaler. Jeg er lidt på sporet, men alligevel ikke. Denne gør det kun på den første celle, og så er der problemer med at lave om til "tal". Feks. hvis jeg har i en celle -59 897,99:

Sub Macro1()

    ActiveCell.Activate
    Selection.Style = "Comma"
    Selection.NumberFormat = "_(* #,##0_);_(* (#,##0);_(* ""-""??_);_(@_)"
    Selection.Replace What:=" ", Replacement:="", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
    Range("B14").Select
End Sub