Split Rows in multipe columns - VBA

Hello,

I am trying to split cell values in a single excel row into multiple cells rows to the bottom through VBA automation.

Attached the data workbook-
Sheet1 - Original Data set
Sheet2 - Desired Data Set

Thanks,
Vik

I guess you are referring to Cell R2. It was a Typo error, it should have only 3 values (Cell R2 - is the Sum Total for the resources)

Re-posting the corrected file...

Thank you ...