E não dá pra simplesmente classificar e excluir? Precisa da macro? (Você mesmo pode gravar essa macro.)

é que na verdade eu tenho que manter a ordem que os dados saem da planilha e se eu classificar eu perco a sequencia.
mas é possivel fazer esta macro??
e tem muitos registros, por isso que eu precisaria de laço na macro

Tenta assim:

Sub removetexto()
Dim i As Long, j As Long
i = Range("A" & Rows.Count).End(xlUp).Row
For j = i To 2 Step -1
If IsNumeric(Range("A" & j).Value) = False Then Range("A" & j).ClearContents
Next j

End Sub

Se quiser excluir a linha toda ao invés de só apagar o texto, troque o "ClearContents" por "EntireRow.Delete".

E se quiser remover a célula e subir as outras células, troque o "ClearContents" por "Delete Shift:=xlUp" =)