Caracteres

Que tal.

Me gustaria que me ayudaran a disenar una macro para detectar caracteres
NO
NUMERICOS

En la hoja 1, rango A2: A100 debo de tener numeros del 0 AL 9.
En la hoja 2 , necesito ir agregando uno a uno aquellas celdas que no
contengan esos valores, es decir que no sean numericos.

Tengo algo , pero solo me falta ese codigo..

For Fila = Range("a2").Row To Range("a65536").End(xlUp).Row Step 1
If Range("a" & Fila).Find(what:=" ", lookat:=xlPart) Is Nothing Then
Else
Sheets("Validation of " & HOJ & "").Range("A65536").End(xlUp).Offset(1,
0).Value = "There is a space in the row # " & Fila & ""
End If
Next


En este solo encuentra espacios, pero quiero que sea para valores no
numericos..


De antemano les agradezco su ayuda.
Mil Gracias
Manny