Layout list by VBA

[parscon]

Hi eveyone i need your help regarding This excel sheet


On Sheet1 i have our stok list and page layout is A5 and want each page have only the same shelfs codes, (if it is going more than on epage will do the same) shelf codes are in column D.
when run VBA code it must create 2 row in top of each page and in fist row put shelf code in column A and also copy the first row in sheet2 to sheet1 in second empty row.
you can see sample picture.



Note : if we can add border for cells and column for each page will be great.




Thanks for your try and effort .