Format 1 row in excel to many rows incrementally by range in row until blank cell

I would Like to format the following with an excel macro from Sheet1 (input) to sheet 2 (output)

Sheet 1
Capture.PNG

Sheet 2 - Output from Sheet 1 Macro
Capture1.PNG