VBA Macro copy paste inserts blank row

Hi,

In the attached workbook, on the sheet named "Closed Adjustments" when the "RUN" button is clicked it copies the data from this sheet in to corresponding sheets matching the code in column I.

Everything works fine but as you can see if you click "RUN", this inserts a blank Row 5 between the headings and the copied data only on the numbered sheets and not the main sheet. I've tried changing the code but now need help.

Thanks