Não veio exemplo...

Não veio exemplo...

Verifica se agora foi por gentileza. Obg.

Veja se é isso o que deseja:

Veja se é isso o que deseja:

Show andré! É isso mesmo que eu precisava, porém temos um problema aqui. No exemplo funcionou perfeitamente. Mas minha base é muito grande. Tem por volta de 60mil linhas e o excel está demorando para processar os dados. Até agora nao consegui concluir o procedimento de arrastar a formula para baixo. Tem como resolver isto de uma forma mais rápida? Obrigado.

Talvez uma rotina direta possa deixar mais rápido o processo...
Veja se funciona:

Option Explicit
Option Compare Text

Sub Concatenar_Pedidos()
Dim w, ws As Worksheet
Dim ultcel, lastcel, i As Long
Dim cel As Range
Dim mystring As String

Application.ScreenUpdating = False

Set w = Sheets("pedidos")
Set ws = Sheets("tabela completa")
ultcel = ws.Range("A" & Rows.Count).End(xlUp).Row
lastcel = w.Range("A" & Rows.Count).End(xlUp).Row

    For Each cel In w.Range("A2:A" & lastcel)
        For i = ultcel To 3 Step -1
            If ws.Range("A" & i).Text = cel.Text And ws.Range("A" & i).Offset(0, 2).Value <> "" Then
                mystring = ws.Range("A" & i).Offset(0, 2).Text & vbNewLine & mystring
            End If
        Next i
            Select Case Len(mystring)
                Case Is > 1
                     cel.Offset(0, 1).Value = Mid(mystring, 1, WorksheetFunction.Search("", mystring, Len(mystring) - 1) - 1)
            End Select
       mystring = vbNullString
    Next

Set cel = Nothing

Application.ScreenUpdating = True

End Sub

Segue também em anexo: