Adding empty rows, Help!

**almightyk** · 11-29-2012, 07:08 PM

I am trying to use following macro to insert rows in a spreadsheet:

Please Login or Register  to view this content.

it does work, but add rows one by one at every entry
e.g.
when I run macro, it adds a row after A2, then a dialog box appears and I have to manually press Ok or close the box then it inserts another line after the next occupied row and so on.
Is there any way I can add empty rows at once or it automatically goes to next row without pressing anything manually?
i am very new to Excel, your help will be appreciated.
Thanks in advance

Moderators note: code tags added for you - this time

**Sa DQ** · 11-29-2012, 08:51 PM

PHP Code:


Option Explicit

Sub Insert()

 Dim J As Long, R As Range



 J = InputBox("Number Of Rows To Be Insered")

 Set R = Range("A2")

 Do

    If R.Offset(1, 0) = "" Then Exit Do

    R.Offset(1).Resize(J).EntireRow.Insert

    Set R = R.Offset(1 + J)

'    MsgBox R.Address'   <=|

 Loop

End Sub