Insert Two Rows after change in column data

Try:-

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).Resize(2).EntireRow.Insert
Next lRow
End Sub

Mick