Inserting rows

[Francis Hookham]

Varable iR is the row where I need to insert a row.
Given iCount is the numbers of rows to be inserted, how can this be altered
to insert that number of rows?

Sheets("Pages").Rows(iR + 1).EntireRow.Insert

The following does it but is so cumbersome, having to select first:

Cells(iR+ 2, 1).Select
ActiveCell.Rows("1:" & iCount).EntireRow.Select
Selection.Insert Shift:=xlDown

Many thanks
Francis Hookham

 

[Michael]

Doing this wil speed up the insertion because is not selecting:

Cells(ir + 2, 1).Rows("1:" & icount).EntireRow.Insert Shift:=xlDown

 

[Francis Hookham]

Fantastic Michael - just what I wanted - many thanks,

Francis