Excel Macro ou Formula para organizar Tabela

[RayGabriel]

Olá caros,
bom dia!

preciso de uma ajuda com excel usando formula ou macro.

No exemplo que informei tem apenas 3 linhas, mas na minha realidade são mais.

 

ajuda.xlsx

[Midori]

@RayGabriel Antes de executar a macro a tabela deve estar ordenada, como no exemplo,

 

Sub MacroCopiaTabela()
    Call CopiaTabela([A6].CurrentRegion, [E7])
End Sub

Sub CopiaTabela(Tabela As Range, Nova As Range)
    Dim Linha   As Long
    Dim Conta   As Long
    Dim Codigo  As Range
    
    Linha = 1
    
    While Linha <= Tabela.Rows.Count
        Set Codigo = Tabela(Linha, 1)
        Conta = WorksheetFunction.CountIf( _
            Tabela.Columns(1), Codigo)
        Call Codigo.Copy(Nova)
        Tabela(Linha, 3).Resize(Conta).Copy
        Call Nova(, 2).PasteSpecial(Transpose:=True)
        Set Nova = Nova(2)
        Linha = Linha + Conta
    Wend
    Application.CutCopyMode = False
End Sub

 

[RayGabriel]

Muito obrigadoooo