Macro to delete rows from Duplicate Heading in Col D up to first blank row below last num

I have data on sheet "Imported Data"

I have tried to write code to delete rows containing duplicate headings in Col D from row 2 onwards up to the first blank row below the number above last blank row

I have manually extracted the data to show what it should look like after running the macro-see sheet "Final Result"

I need my code amended to accomodate my request

Please Login or Register  to view this content.

There's a lot you can do without VBA these days.

I would be inclined to copy the headers and data you want to a new sheet. Then there is no risk of deleting or corrupting any data.

Headers:

Formula:

Please Login or Register  to view this content.

Data:

Formula:

Please Login or Register  to view this content.

You're welcome.