Boa noite!!

De acordo com seu exemplo.....tente

=D6&" "&E6&" "&F6

Não é a solução domeu problema, você ofereceuum formula, mas euquero digitar na propria célula e nãodigitarem outra e utilizar uma formula...
Vou tentar explicar melhor:

Eu quero digitar apenas o número 1018110204000660156 dentro da célua H9,
e quando eu teclar [ENTER] ele deve exibir assim: 1018 1102 0400 Zona 066 Seção 0156

Só que esta exibindo assim: 1018 1102 0400 Zona 066 Seção 0000

Aquela parte em vermelho que não esta exibindo correto.

Mesmo assim obrigado, e continuo aguardando novas respostas.

Obrigado pela atenção!

Pedro
veja em viewtopic.php?f=25&t=3660&hilit=formata%C3%A7%C3%A3o
Creio que explica o motivo por Não estar exibindo correto
Uma possibilidade para seu problema:
Formate uma coluna (onde sera a entrada de dados) como : TEXTO (Selecione a Coluna C por exemplo, va em Formatar-->Celulas e escolha Texto)
Então digite seu numero: 1018110204000660156 (deverá aparecer sem distorção)
Em outra coluna (a que servirá de visualização) =ESQUERDA(C2;4)&" "&EXT.TEXTO(C2;5;4)&" "&EXT.TEXTO(C2;9;4)&" Zona "&EXT.TEXTO(C2;13;3)&" Seção "&DIREITA(C2;4)
Veja no anexo

Obrigado Reinaldo...

Mas se é uma limitação do excelmesmo, daí vou optar por formatar a célula em texto e exibir o número inteirocorrido porque é mais prático.

Bom dia!!

Caso queira usar via VBA, formate coluna A como texto, e insira o código dentro de Plan1 de código.

Private Sub Worksheet_Change(ByVal Target As Range)
Static Blocked As Boolean
Dim SomeCells As Range
Set SomeCells = Intersect(Target, Range("A2:A" & Rows.Count))
If Not SomeCells Is Nothing Then
    For Each cll In SomeCells.Cells
        If Not Blocked Then
            mm = ""
            If Len(cll.Value) = 19 Then
                Blocked = True
                For i = 1 To 12 Step 4
                    mm = mm & Mid(cll.Value, i, 4) & " "
                Next i
                mm = mm & Right(cll.Value, 4) & " Section " & Mid(cll.Value, 13, 3) & " Zone"
                cll.Value = mm
                Blocked = False
            End If
        End If
    Next cll
End If
End Sub

..Baixe o exemplo em:
http://www.sendspace.com/file/cb32ee
Att

Muito bom Alexandre,
sómente que de acordo com o exemplo do Pedro, o codigo proposto inverte seção e Zona;
Creio que possa ser : mm = mm & " Zona " & Mid(cll.Value, 13, 3) & " Seção " & Right(cll.Value, 4)