Merge Columns to Rows

Hi,

I have a spreadsheet that holds student assessment data for each of their subjects (each subject has 6 data items), i.e. 1 row per student. However, I need to be able to arrange this data as 1 row per student per subject - I know this may be vague, so I have attached a sample spreadsheet which can be downloaded here: http://www.filedropper.com/sampledata-mergecolstorows

(I couldn't attach it directly to this thread as nothing happened when I clicked the 'attachment' button - sorry!)

Can anyone help with a macro that will help me do this?

Thank you in advance!