Não entendi como voce precisa que as informações ficam.

Como está hoje e como deve ficar?

Ola Leandro, isso mesmo, manter esse mesmo agrupamento por pedido, fico grato por ajudar, abraco

Ola Leandro, creio que ficou meio vago minha resposta anterior.
Estou agrupando por NRPedido(TabVendas (L=12)) e a quantidades que encontra-se na tabela (TabVendas (G=7)

Deveria ser agrupado desta maneira
NrPedido Qtde(s)
100 3
101 2
102 5
103 3
104 1
105 3
106 5

Quando puder orientar, agradeco, abraco

Codigo

With Sheets("TabVendas")

Do Until Sheets("TabVendas").Cells(LINHATAB, 12) = ""

If QuebraAnterior <> Sheets("TabVendas").Cells(LINHATAB, 12) Then
QuebraAnterior = Sheets("TabVendas").Cells(LINHATAB, 12)

Sheets("Relato").Cells(LINHAREL, 4).Value = SumTotalGRP
Sheets("Relato").Cells(LINHAREL, 5).NumberFormat = "###,##0.00"
LINHAREL = LINHAREL + 1
SumTotalGRP = 0

If QuebraAnterior = Sheets("TabVendas").Cells(LINHATAB, 12) Then
Sheets("Relato").Cells(LINHAREL, 1) = Sheets("TabVendas").Cells(LINHATAB, 12)
LINHAREL = LINHAREL + 1
Else

QuebraAnterior = Sheets("TabVendas").Cells(LINHATAB, 12)
Sheets("Relato").Cells(LINHAREL, 4).Value = SumTotalGRP
Sheets("Relato").Cells(LINHAREL, 5).NumberFormat = "###,##0.00"
LINHAREL = LINHAREL + 1

End If

Else
QuebraAnterior = Sheets("TabVendas").Cells(LINHATAB, 12) 'Quebra por Pedido

End If

SumTotalGRP = SumTotalGRP + Sheets("TabVendas").Cells(LINHATAB, 7) 'Somar as Qtdes

LINHATAB = LINHATAB + 1
Loop

End With