Remove non-numbers in Column F

[Livin404]

Hello the following code I used in the past on another project. In this case I need to change it so it will start on Row 5 of Column F and the range will depend on the height of my table. I do not need a input box.

Sub RemoveAllNonNums_Macro()
Dim myR As Range
Dim myRange As Range

Set myRange = Application.Selection
Set myRange = Application.InputBox("select one range that you want to remove non-numeric characters", RemoveAllNonNums, myRange.Address, Type:=8)
For Each myR In myRange
    myOut = ""
    For i = 1 To Len(myR.Value)
        tmp = Mid(myR.Value, i, 1)
        If tmp Like "[0-9]" Then
            myStr = tmp
        Else
            myStr = ""
        End If
        myOut = myOut & myStr
    Next i
    myR.Value = myOut
Next

End Sub

 

[Peter_SSs]

I was just offering him what I thought is an interesting (and more compact) alternative in case he might like to make use of it.

But it does a completely different job.
"125FGH9"
Original code returns 1259, your code returns nothing.

 

[Rick Rothstein]

But it does a completely different job.
"125FGH9"
Original code returns 1259, your code returns nothing.

Argh! I misunderstood the question!