Используйте вот такую пользовательскую функцию:
Public Function ТолькоЦифры(TargetCell As Range) As String
Dim LenStr As Long
For LenStr = 1 To Len(TargetCell)
Select Case Asc(Mid(TargetCell, LenStr, 1))
Case 48 To 57
ТолькоЦифры = ТолькоЦифры & Mid(TargetCell, LenStr, 1)
End Select
Next
End Function
Добавляйте в свой файл и работайте. Как добавить код в файл - смотрите тут.