Insert New Row Below, Not Above

[jazzpony]

I have written the following code to insert a new row so that an entry isn't overwritten:

Range("B2").EntireRow.Insert

The new row is inserted ABOVE the previous post. I would like to have the new row inserted BELOW the previous post.

Thank you!

 

[Fishboy]

I have written the following code to insert a new row so that an entry isn't overwritten:

Range("B2").EntireRow.Insert

The new row is inserted ABOVE the previous post. I would like to have the new row inserted BELOW the previous post.

Thank you!

Hi jazzpony, welcome to the boards.

Um, why not just insert the row at B3 instead?

 

[JackDanIce]

Or

Range("B2").Offset(1,0).EntireRow.Insert

 

[jazzpony]

I tried that and it overwrites the previous line and doesn't advance.

 

[Fishboy]

I tried that and it overwrites the previous line and doesn't advance.

Odd, on my tests with sample data that looked like this:

Excel 2010
	A
1	TEST1
2	TEST2
3	TEST3
Sheet1

After running this macro:

Sub TEST()
Range("B3").EntireRow.Insert
End Sub

It looks like this:

Excel 2010
	A
1	TEST1
2	TEST2
3
4	TEST3
Sheet1

 

[hetfieldkaloo]

Hi, I had written a code earlier to insert "n" rows between at a given position. Does this work for you? :

Sub insertrows()
Dim a As Integer, Rw As Range
Set Rw = Application.InputBox("Please select the row to shift: ", Type:=8)
Rows(Rw.Row & ":" & Rw.Row).Resize(1).Insert
End Sub