Insert rows

[haseft]

hi!

want to insert row in worksheet2.
the value of range ? is in worksheet1 cell E1.

Dim a As Long
a = Worksheets("Sheet1").Range("E1").Value
Worksheets("Sheet2").Activate
Range("A1").Select
Range("a1: ? ").EntireRow.Insert

tanks forhelp

 

[Fluff]

What is the actual value in E1? Is it like 2 or A2, or something else?
Also do you want to insert 1 row before that range or before the first row?

 

[haseft]

Range E1 is a number, ex. 10, 24 a.s.o
want to insert row from A1 and below.

 

[Fluff]

In that case try

Dim a As Long
a = Worksheets("Sheet1").Range("E1").Value
Worksheets("Sheet2").Activate
Range("A1").Select
Range("A1:A" & a).EntireRow.Insert

 

[haseft]

tanks for this.
I wonder what is the cod if I want to insert from active cell and 20 row below.

 

[Fluff]

Not sure I understand, but try this

activecell.Resize(20).EntireRow.Insert

 

[haseft]

yes, that what I asked for.
thanks a lot Fluff!

 

[Fluff]

Glad to help & thanks for the feedback