Unmerge Cells & Copy Cells Down to Next Line of Data

[t0mato]

Hello!

I have a (what I believe to be) fairly simple request I am looking to achieve with Excel VBA.

Please see attached report.

I am simply looking to unmerge each grouped cell in column D (Org Level 3) and copy the first line down to the next line. See images below:

Current State:

img1.jpg

Goal State:

img2.jpg

Simply put, the macro/VBA code should unmerge the data in column D and copy the first line down to the last line until the data changes, and loop for each area to the bottom of the data. Additionally, you will notice in line 1227 where column A is "Warehouse" - the code should disregard this section since the column D is not grouped. I.e., stop where the column A line = "warehouse".

I am planning to macro record the unmerge of the first group starting at the top and try to have it loop until it reaches warehouse then stop but am not exactly sure how to write this.

Thanks so much for the help!