添付ファイルのように、ExcelでA、B、C、D列をキーと考えてキーをユニークにし、E列の値をE列以降に横に並べ替えたいです。VBA等で簡単に実行できればと思うのですが、力不足なこともあり詳しい方がいらっしゃいましたらお願いします。

Sub test()
    y = 6                                   'セットするセル
    i = 2                                   '検索する行
    Do Until Cells(i, 1) = ""               '空白行になるまで繰り返し
    
                                            'i行とその上の行のキーセルが同じならば
        If Cells(i, 1) = Cells(i - 1, 1) And Cells(i, 2) = Cells(i - 1, 2) And Cells(i, 3) = Cells(i - 1, 3) And Cells(i, 4) = Cells(i - 1, 4) Then
            Cells(i - 1, y) = Cells(i, 5)   'セットセルにE列の値をセット
            Range(i & ":" & i).Delete       '検索し終えた行を削除
            y = y + 1                       'セットセルを1列右にずらす
                
        Else                                'もし検索行がひとつ上のキーと違うならば
            i = i + 1                       '検索行を1行下にずらす
            y = 6                           'セット列を初期に戻す
        End If
    Loop
End Sub

いちおう、A,B,C,D列がすでにソートされているのが前提です。
別シートに結果を出しても良かったのですが、とりあえず元データを加工する形になっています。
（行削除されていきます）