transpose macro

I want to transpose data into a table, so i can use pivot table.

I want a macro to do that for me.

I attached an example file.

In the file you see how the data is built up, and how i want to get the data.

If it is easier to change the columns, that's no problem.

If it is easier to put the result on another worksheet, that's no problem.

Do you have question on this item, just ask.