Guru do Excel e Power BI

Boa tarde!

Conforme o anexo, solicito ajuda.

Grato.

Bom dia.
Segue uma opção.
Em um Módulo normal coloque a seguinte Função:

Function SepGrupos(XNum As String) As String
Dim i As Long
For i = 1 To Len(XNum)
SepGrupos = SepGrupos & Mid(XNum, ((i - 1) * 4) + 1, 4) & " "
Next i
SepGrupos = Trim(SepGrupos)
End Function

Como Usar :
B1 =SepGrupos(A1)

Até

Foxtri