Consolidate rows into new list

Have not entered into 'pivot mode' yet....would rather have VBA

Maybe:

Sub x65140()
Dim i As Long
Dim y As Long
Dim x As Long

For i = 7 To Range("B" & Rows.Count).End(3).Row
x = Cells(i, 1).End(xlToRight).Column + 1
    For y = i + 1 To Range("B" & Rows.Count).End(3).Row
        If Cells(y, 2) = Cells(i, 2) And Cells(y, 3) = Cells(i, 3) Then
            Range(Cells(y, 4), Cells(y, 5)).Copy Cells(i, x)
            Rows(y).ClearContents
        End If
    Next y
Next i

End Sub

I could work with that....but what if I should need to go to THIRD PLACE? How would I adjust your code for that?
i.e. 1st, 2nd AND 3rd places....

Maybe?

Sub x65140()
Dim i As Long
Dim y As Long
Dim x As Long
For i = 8 To Range("B" & Rows.Count).End(3).Row
x = Cells(i, 1).End(xlToRight).Column + 1
    For y = i + 1 To Range("B" & Rows.Count).End(3).Row
        If Cells(y, 2) = Cells(i, 2) And Cells(y, 3) = Cells(i, 3) Then
            Range(Cells(y, 4), Cells(y, 5)).Copy Cells(i, x)
            x = x + 2
            Rows(y).ClearContents
        End If
    Next y
Next i

End Sub

Awesome! Appreciate the assistance!

You're welcome. Glad to help out and thanks for the feedback.