VBA from (multi) column to rows

I often see files built up in columns (week from A to Z)

If you want to use a pivot table it's easier to re-arange the data from columns into rows.

Who can help me with a macro which will do that for me.

In the attached file, also is the desired result.

For the example please post the result in another sheet.

Do you have questions or comments, just ask or comment.