Auto insert 'x' rows depending on value 'y'

Hi,
I am new to VB and could do with some help to be able to automatically insert 'x' number of rows in my spreadsheet.

The sheet looks as follows;
I want the sheet to automatically insert the number of rows indicated in column D minus 1 (the existing row becomes row 1) Also the value calculated in Column E should be copied into the new rows.

Column A
Invoice Date - input by user

Column B
Invoice Number - Input by user

Column C
Invoice Total - Input by user

Column D
Number of Budget Centres invoice is split accross - Value 1-60 input by user

Column E
Value of invoice per budget centre - automatically calculate C divided by D

Columns F - O
Additional data - input by user

many thanks

Hi, Try this:-

Please Login or Register  to view this content.

Regards Mick

Hi
Thanks for this Mick,
It works great though I'd like the new rows to be inserted below the original row.
I have tried adjusting certain values in the code but can't figure it out !

Thanks again for help

regards
Richard

Hi, Try this:-

Please Login or Register  to view this content.

Regards Mick

Hi Mick

Well that is brilliant.
Thank you so much.

regards
Richard