I need to reorganize the data with VBA

I have data organized in a file. I want to basically have the data reorganized into a specific format/order and continue to the bottom of the list. It might be a copy/paste thing?

I need the VBA for this. I've attached an example. Thanks for the help!

Try this:

Option Explicit

Sub foo()
Dim ws As Worksheet
Set ws = Sheets("Sheet1")
Dim sh As Worksheet
Set sh = Sheets("Sheet2")
Dim rng As Range
Set rng = ws.Range("E5:I5")
Dim lr As Long
lr = ws.Range("D" & Rows.Count).End(xlUp).Row
Dim lr2 As Long
Dim i As Long

For i = 6 To lr
lr2 = sh.Range("B" & Rows.Count).End(xlUp).Row
With ws
    .Range("D" & i).Copy sh.Range("A" & lr2 + 1)
    rng.Copy
    sh.Range("B" & lr2 + 1).PasteSpecial xlPasteAll, , , True
    .Range("E" & i & ":I" & i).Copy
    sh.Range("C" & lr2 + 1).PasteSpecial xlPasteAll, , , True
    
End With
Next i
Application.CutCopyMode = False

End Sub

Create a second sheet called Sheet2; put these headings on the sheet
A1 = Project, B1 = Group, C1= Amount

Then run the code.