How to pivot a multiple columns into single column using VBA?

Question

Initial

Hi all, how can I convert the initial Excel table to the final table via VBA (on a separate sheet)?

Final