Visual Basic - REMPLAZAR TODO MENOS NUMEROS

Sub DejaSoloNumeros()

'

' DejaSoloNumeros Macro

' En el rango indicado deja solo Numeros

'

' Acceso directo: Ctrl+Mayús+Q

'

    Dim r As Range: Set r = Sheets("BOLSA HORAS").Range("E6:AJ300") '' aqui te puse de E para que no afecte de  "A" a "D" y

'300filas tu puedes poiner las 10000 que tienes....

    Dim c As Range

    Sheets("BOLSA HORAS").Select

    For Each c In r.Cells

        If IsNumeric(c.Value) = False Then

            c.Value = ""

        End If

    Next c

End Sub