Separate text from numbers

how many are you likely to need?
here is a (not very efficient udf )that will extract all numbers into one cell .then copy paste special values then split with text to columns
use as =remove_text(a1) and drag down

Function Remove_text(Rng As String) As String
Dim Tmp As String
Dim i As Integer
Dim x As Integer


Tmp = Rng
For i = 1 To 47
Tmp = Application.Substitute(Tmp, Chr(i), " ")
Next i
For x = 58 To 255
Tmp = Application.Substitute(Tmp, Chr(x), " ")

Next x
Tmp = Application.Trim(Tmp)

Remove_text = Tmp
End Function