P
Pierre
Have the following code which works well and adds blank rows Would
like to add rows "starting at row 4", and not before; so it doesn't
mess up my column headings . . .where would I insert what code? Many
thanks in advance for any thoughts.
Pierre
Sub InsertRows()
Application.ScreenUpdating = False
Dim numRows As Integer
Dim r As Long
r = Cells(Rows.Count, "A").End(xlUp).Row
numRows = 8
For r = r To 1 Step -1
ActiveSheet.Rows(r + 1).Resize(numRows).Insert
Next r
Application.ScreenUpdating = True
End Sub
like to add rows "starting at row 4", and not before; so it doesn't
mess up my column headings . . .where would I insert what code? Many
thanks in advance for any thoughts.
Pierre
Sub InsertRows()
Application.ScreenUpdating = False
Dim numRows As Integer
Dim r As Long
r = Cells(Rows.Count, "A").End(xlUp).Row
numRows = 8
For r = r To 1 Step -1
ActiveSheet.Rows(r + 1).Resize(numRows).Insert
Next r
Application.ScreenUpdating = True
End Sub