Excel Macro ou Formula para organizar Tabela

[RayGabriel]

Olá Caros,
bom dia!


Alguém consegue me ajudar com esse problema?

A tabela abaixo sempre vem até no máximo 6 integrantes... e se repetem, gostaria de organizar no formato da direita sem repetição do nome pela equipe.

 

AJUDA.xlsx

[Midori]

@RayGabriel Veja se assim resolve,

 

Sub CopiaEquipe()
    Dim Tabela  As Range
    Dim Destino As Range
    Dim Linha   As Long
    Dim Equipe  As String
    Dim Conta   As Integer
    
    Set Destino = [J5]
    Set Tabela = [A4].CurrentRegion.Offset(1)
    Linha = 1
    
    Call Tabela.Sort(Tabela(1))
    
    Do
        Equipe = Tabela(Linha, 1).Value
        If Equipe <> "" Then
            Conta = _
                WorksheetFunction.CountA(Tabela.Rows(Linha)) - 1
            If Conta > 0 Then
                Destino.Resize(Conta).Value = Equipe
                Destino(, 2).Resize(Conta).Value = _
                    Application.Transpose(Tabela.Rows(Linha).Resize(, Conta).Offset(, 1))
                Set Destino = Destino.Offset(Conta)
            End If
        End If
        Linha = Linha + WorksheetFunction.CountIf(Tabela.Columns(1), Equipe)
    Loop While Equipe <> ""
End Sub

 

[RayGabriel]

@Midori Obrigado!!!!