Macro para reemplazar valores en excel

Buenas,

Tengo un problema con una macro que estoy creando.

En la celda A1, A2, A3... Así consecutivamente, copio números de cuenta que me proporciona gente, pero claro... Las personas me proporcionan los números tienen diferente formato, como por ejemplo así:

1222.1222.22.1234567890

1222 1222 2 2 1234 5678 90

Lo que me gustaría es que al ejecutar la macro lo dejase en la misma celda, pero todos los números seguidos, sin ninguna transformación (para luego seguir con la macro con texto en columnas) y por el contrario, cuando realizo mi macro me deja un valor como este:

1,22212E+19

Dicha macro es esta:

Sub A_reemplazar()
Application.ScreenUpdating = False
Worksheets("Hoja6").Cells.Replace What:=" ", Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Worksheets("Hoja6").Cells.Replace What:=".", Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False

End Sub

Agradecería toda la ayuda posible... Muchas gracias por todo.

SAludos.

Pd. Los números de cuenta que aquí expongo, son ficticios.