Your sample final product doesn't have a pattern.  I think you meant for it
to have one though.  How about ALL the ID of 1234 listed first with all the
Acc numbers and amounts that go with that ID, then the next ID, and so
forth?  Or do you want ALL of the same Acc number to be listed together?
Either way you can always filter the final product to see what you want.
Unless you tell me different I'm going to use a new blank sheet for the
final product.  Otto

Mac
Here is a macro that will do what you want.  I assumed that the sheet that
holds the data is named "Start" and the sheet that will get the final
product is named "Finish".  Change these in the code as you need to.
I had a bit of difficulty because I didn't know how to extract the account
number from the real headers that you have.  Looking at what you gave me,
headers like "Acct no 1025", "Acct 1040", etc. I wrote this macro to take
the last 4 characters of those headers and use that as the account number in
the final product.  Think about this and see if that fits with your data.
Let me know what changes you need to have made.  Otto
Sub ReArrangeData()
     Dim rColA As Range
     Dim i As Range
     Dim j As Range
     Dim Dest As Range
     Dim rRowi As Range
     Application.ScreenUpdating = False
     Sheets("Start").Select
     Set rColA = Range("A2", Range("A" & Rows.Count).End(xlUp))
     Set Dest = Sheets("Finish").Range("A2")
     For Each i In rColA
           Set rRowi = Range(Cells(i.Row, 2), Cells(i.Row,
Columns.Count).End(xlToLeft))
           For Each j In rRowi
                 Dest.Value = i.Value
                 Dest.Offset(, 1).Value = Right(Cells(1, j.Column).Value,
4)
                 Dest.Offset(, 2).Value = j.Value
                 Set Dest = Dest.Offset(1)
           Next j
     Next i
     Application.ScreenUpdating = True
End Sub