Delete Entire Row if cell contains specified value

Hi, I'm very new to VBA and have come up against a situation that is beyond me and my research through the forums.

I need to keep everything in rows 1,2 and 3.
After that, I need to delete all the rows up until the first time a cell in column D contains a percentage and shift all the rows after that up with it. The amount of rows that will need to be deleted changes everyday that I update.

So when the macro is completed, Row 4 should now be a row that contains a percentage in column D.

I have attached a sample of the project. In this sample, Row 28 should end up being Row 4 after the macro runs.

Thanks
Peter