Adding Rows based on cell value entered

[Rajiv87]

Hi,

I want to add no of rows based on the value I enter in a particular cell.

For example, if I enter 4 in a cell I should get 4 rows added.

Any ideas or macros to do so???

 

[My Aswer Is This]

You put "4" into what cell?
You insert 4 rows where?

 

[My Aswer Is This]

Put the value "4" in cell A1
Select a cell in the row where you want the rows inserted and run this script:
And 4 rows will be inserted below your active cell.
Change the value marked in red to your liking.

Sub Insert_Me()
Dim aa As Integer
aa = Cells([COLOR="#FF0000"]1, 1[/COLOR]).Value
ActiveCell.Offset(1).Resize(aa).EntireRow.Insert
End Sub