Convert a portion of data from horizontal to vertical but not all (cant use transpose)

Hi There,
Need help on a shortcut to convert a set of data from a mix of vertical/horizontal, to all vertical. Need the one numeric metric and time values to be vertical. See example of my issue below. Transpose doesn't do exactly what I need so looking for functions/VBA ideas. Thanks!!

Prouduct Sales Type Wk 1 Wk 2 Wk 3 Wk 4 Wk 5
Product 1 Commercial 1 2 3 4 5
Product 2 Commerical 1 2 3 4 5
Product 3 Consumer 1 2 3 4 5

Prouduct Sales Type Week Sales
Product 1 Commercial Wk 1 1
Product 1 Commercial Wk 2 2
Product 1 Commercial Wk 3 3
Product 1 Commercial Wk 4 4
Product 1 Commercial Wk 5 5
Product 2 Commercial Wk 1 1
Product 2 Commercial Wk 2 2
Product 2 Commercial Wk 3 3
Product 2 Commercial Wk 4 4
Product 2 Commercial Wk 5 5
Product 3 Consumer Wk 1 1
Product 3 Consumer Wk 2 2
Product 3 Consumer Wk 3 3
Product 3 Consumer Wk 4 4
Product 3 Consumer Wk 5 5