VBA to Rearrange certain columns and rows
===

I have a excel spreadsheet formatted like this:

![Before][1]


What I have been trying to do is format it to look like this:

![After][2]


  [1]: http://i.stack.imgur.com/mO1UM.png
  [2]: http://i.stack.imgur.com/qw0nC.png

So it's kind of transposed I guess (not sure how to call it).

I've spent the last hour and a half trying to do it in VBA with no success.

This is just a sample of how it is formatted, in reality there's about 50,000 of these, so I need to do it using VBA or something of the sort.

Would someone be able to help me out with how to do this?

Thank You.