Olá, @  RechBr

Veja se esta solução via macro lhe serve.

O código abaixo utiliza somente a coluna G da planilha Dados Puros e as colunas A:E da planilha Dados Organizados.

Sub OrganizaDados()
Dim ws As Worksheet, k As Long, x As Long, LRo As Long, LRd As Long
Set ws = Sheets("Dados Organizados")
If ws.[A2] <> "" Then ws.Range("A2:E" & ws.Cells(Rows.Count, 1).End(3).Row) = ""
ws.Columns("A:B").NumberFormat = "@"
LRo = Sheets("Dados Puros").Cells(Rows.Count, "G").End(3).Row
LRd = 2
With Sheets("Dados Puros")
For k = 2 To LRo Step 7
If k = 2 Then
GoTo th
ElseIf Left(.Cells(k, "G"), 11) <> Left(.Cells(x, "G"), 11) Then
th:
ws.Cells(LRd, 1) = Left(.Cells(k, "G"), 11)
ws.Cells(LRd, 2) = Right(.Cells(k, "G"), 12)
ws.Cells(LRd, 3) = .Cells(k + 1, "G")
ws.Cells(LRd, 4) = .Cells(k + 2, "G")
ws.Cells(LRd, 5) = .Cells(k + 3, "G")
LRd = LRd + 1
End If
x = k
Next k
End With
End Sub

MUITO Obrigado pela atenção! Como posso retribuir?

"MUITO Obrigado pela atenção! ---> Obrigado por retornar. 😀 

"Como posso retribuir?"---> Em qualquer lugar, a qualquer hora, ajude alguém que esteja precisando. 🤩 

Deu liberdade, vou abusar um pouco... haha

Pq por exemplo, o de cima funciona e o de baixo nao? Estou quebrando a cabeca tarde toda e nada

=PROCV("41449";OrdemTrab[#Tudo];5;0)

=PROCV([@SERIAL];OrdemTrab[#Tudo];5;0)

Na tabela DadosOrg a coluna SERIAL é formada por números, ao passo que na tabela OrdemTrab a coluna SERIAL é formada por textos.

=PROCV("41449";OrdemTrab[#Tudo];5;0) ---> esta fórmula retorna o resultado correto porque o valor procurado está entre aspas ("41449") , e isso converte o número em texto, que fica compatível com a coluna em que é feita a busca.

=PROCV([@SERIAL];OrdemTrab[#Tudo];5;0) ---> esta retorna #N/D porque está buscando número em um intervalo que contém textos, conforme comentei acima.

Experimente essa abaixo.

=PROCV(TEXTO([@SERIAL];"0000");OrdemTrab[#Tudo];5;0)

__________________________________________________________________________________________________________________

Sobre o assunto inicial deste tópico, vi que você alterou o código que passei.

ElseIf Left(.Cells(k, "A"), 11) <> Left(.Cells(x, "A"), 12) Then ---> ao alterar de 11 para 12 você tornou esse comando inútil, e esse comando no código que passei tem a missão de impedir a criação de registros duplicados no resultado, aí, para "compensar o seu erro", você acrescentou comando para remover os registros duplicados.

Sugestão: no futuro, se precisar de ajustes em códigos retorne, ao invés de fazer gambiarras.

Dica - não utilize Select nos seus códigos.