Insira o Macro abaixo como módulo em sua planilha.
ALT + F11 -> Selecione a Planilha -> Clique com botão direito -> Inserir -> Módulo

Copie e cole o código abaixo.

Function Numeros(Texto As String)
For Num = 1 To Len(Texto)
If Mid(Texto, Num, 1) <= 9 Then
Numeros = Numeros + Mid(Texto, Num, 1)
End If
Next
End Function

Esse código cria uma nova função chamada =numeros( )

Agora é só usar ela normalmente como no exemplo abaixo:

Na Célula A1 digite - Teste1515Teste
Na Célula A2 digite - =numeros(A1)
O resultado será - 1515