prima di metterti a scrivere funzioni in vba, controlla le funzioni che excel ti mette a disposizione.

E' più facile se tutti i numeri di cellulare sono sottoforma di testo
1) elimina tutti gli spazi: SOSTITUISCI(testo;" ";"");
2) prendi i primi 3 caratteri: STRINGA.ESTRAI(testo_senza_spazi;1;3);
3) prendi tutti gli altri caratteri: STRINGA.ESTRAI(testo_senza_spazi;4;LUNGHEZZA(testo _senza_spazi);

Ciao