Consolidate rows into new list

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