Automatically adding rows

[Biffarama]

Hello,

I'm wondering if there's a way to enter a number into a field and have that many rows created in another part of the sheet? For instance, in the example below, when I replace the "?" with a number I would like that number of rows created under the Jan-13 row, using the same formatting. Is this possible in Excel 2010?

Thanks,
Troy

Step 1	Account Details
1a	Account Name	Template
1b	Contract Start Date	1/1/13
1c	Number of Months	?
1d	Account Value	$XXXX
1e	Desired Margin	2.5
1f	Monthly Cap	XX
Step 2	Labor costs
	Tier Cost	Seat Cost	Total
Jan-13

<tbody>
</tbody>

 

[Biffarama]

Thank you very much for that.

One more question, can I specify in the code where I want the added lines to go? For instance, if I want them added after row 17?

 

[kevatarvind]

Thank you very much for that.

One more question, can I specify in the code where I want the added lines to go? For instance, if I want them added after row 17?

Change C17 to your Range From Where your want to Insert Row

Sub Insert_Row() 
Range("C17").Select
Range(ActiveCell.Offset(1, 0), ActiveCell.Offset(ActiveCell.Value, 0)).EntireRow.Insert 
End Sub

 

[Biffarama]

Thank you for your help!