Saving Invoice for each items separately

Hello

In the attached workbook in sheet("Invoice") I would like
1)the whole invoice to be saved
on the sheet("InvoiceDatabase").in a way that headings (Invoice date,Invoice#,Customer,
Customer ID,should be repeated for as many times as the number of items
in the invoice similarly the headings bellow the invoice
(Total,Tax Rate,Net,Disc.,Payable,Received,Balance should be repeated for as many times as
the number of items in invoice)
2) I want to insert more rows if items are more than 5
The problem is if I insert rows then formulas will elap the ranges used therein.
3) Serial numbers would be generated as the rownumber minus the number of rows
used in the above headings.
4)The inserted rows should adopt the formating of the current rows.
Since this is a sample the abobe headings would be more than present.

If you have question.Please do ask.

Best Regards
Imran Bhatti