Clear contents vba

Hej gutter,

Jeg har brug for lidt hjælp til en sub.
Jeg har mit område A:A som indeholder tekst i nogle og tal i andre celler.
Jeg har brug for, at de celler som indeholder tal bliver bevaret i cellerne og de celler som indeholder andet bliver indholdet slettet.
Alternativt så skal cellerne i området som indeholder tal større end 300000 kopieres til 3 kolonne.
Det ville nok faktisk være endnu bedre.

På forhånd tak.