Transposing Column to Rows

Hi Folks,

There is something I got stuck at. I am trying to transpose data from columns to rows in the following manner:

Student Maths Marks English Marks Science Marks
A 30 50 60 B 20 80 70

Desired Output required:
A Maths Marks 30
A English Marks 50
A Science Marks 60
B English Marks 20
B English Marks 80
B Science Marks 70

Please help in resolving this transpose.
Attaching the worksheet as well for your response.

Thanks in advance.

Hi
run the macro in the attached file
Ravi