credo che in VBA si possa fare qualcosa del genere:

1. copi il contenuto della cella in una variabile

2. esegui un ciclo For Next che legge con Mid() un carattere (numero) per volta e lo copia nella cella di destinazione

3. ogni 5 cicli aumenti l'indice nell'intestazione.

4. ripeti i 3 step per ogni cella da elaborare.