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