VBA: transpose the table with dates

Question

I\'m novice in VBA. I\'m trying to transpose my data:

I would like to have this results:

I tried all day the methodes like: Resize(UBound(Table