Copia apenas números

[Wellington Junior]

Bom dia pessoal, estou com muito dificuldade em realizar um código no vba, preciso  que me traga apenas os números de uma coluna com número e palavras.

Alguém poderia me ajudar?

Exemplo:

Coluna 1                             Coluna 2

2014                                    2014

carro                                    2014896

2014896                              6598742

moto

6598742

Avião

[Estuardo]

Private Function GetNumbers(s as string) As String
On Error GoTo ErrHandler

Dim s As String
Dim i As Integer

i = VBA.CInt(s)
GetNumbers = i

Exit_Here:
Exit Function

ErrHandler:
GetNumbers = 0
Resume Exit_Here


  
End Function