Insert Two Rows after change in column data

I have been using the following code to insert a blank row after a change of data in a column.

Sub InsertRowAtChangeInValueCSR()
Dim lRow As Long
For lRow = Cells(Cells.Rows.Count, "F").End(xlUp).Row To 2 Step -1
If Cells(lRow, "F") <> Cells(lRow - 1, "F") Then Rows(lRow).EntireRow.Insert
Next lRow
End Sub

What would I change in order to insert two blank rows? If I simply run it twice it will insert three blank rows, but I would like just two.

Thanks.

Try:-

Please Login or Register  to view this content.

Mick

Thank you very much. Exactly what I needed.

How would I go about removing any row that has cells with data, after fining the first blank row? So as you scroll down through the sheet and come to a blank row, delete any row after, which contains data.
We have several spreadsheets that when generated, will have several blank rows and the a coupl rows of non essential data.
Deleting 10 rows after the blank row would work.
Any suggestions?