1) Use Advanced Filter to extract UNIQUE VALUES from column A sheet1 to another column on Sheet2, then copy/transpose that unique list into row1 of your new sheet so the first code is in B1. That should give you reusable headers.

2) Use Advanced Filter to extract UNIQUE VALUES from column B of sheet1 into column A of your sheet2.
That should give you to IDs for your new table. Now you just need the data.

3) Put this formula in B2 and copy across the table, then down.

=INDEX(Sheet1!$C$2:$C$10000, MATCH(B$1&"-"&$A2, INDEX(Sheet1!$A$2:$A$10000&"-"&Sheet1!$B$2:$B$10000, 0), 0))

4) Lastly, copy the formula cells, then do a PASTE SPECIAL > VALUES to remove values and leave the answers.

You could record that into a macro I'd bet in a minute or two.

---------- Post added at 03:18 PM ---------- Previous post was at 03:12 PM ----------

Actually, you can setup sheet2 with all formulas and just copy down until get zeros...

A2: =INDEX(Sheet1!B:B,((ROW(A1)-1)*64)+2)
...copied down until you get zeros.

B1: =INDEX(Sheet1!$A:$A, COLUMN())
...copied across until you get zeros.

B2: =INDEX(Sheet1!$C$2:$C$10000, MATCH(B$1&"-"&$A2, INDEX(Sheet1!$A$2:$A$10000&"-"&Sheet1!$B$2:$B$10000, 0), 0))
...copied down and across to fill the table.