VBA that runs down column finds a criteria then inserts rows & then pastes

Hi All,

Wondering if someone can help. I need help writing a code that can run down a document , identify a criteria, insert 4 rows then count up 5 rows and copy paste data from another sheet.

Ive attached a sheet with a basic example but what I want it to do is run down the rows and identify "Dissallowed Costs" then insert 4 rows. Then go back up 5 rows and go into Sheet2 copy and paste the relevant data to populate the newly inserted rows.

Any help would be hugely appreciated.

Thanks