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