Undo the copying mode with:
Application.CutCopyMode = False

I don't understand why you needed iRow + 2.
In any case, the incrementing and filling would go something like this:
Sheets("Sheet1").Cells(iRow+1,1) = Sheets("Sheet1").Cells(iRow,1) + 1
Sheets("Sheet1").Cells(iRow+1,2) = 'add code
.. . .
Sheets("Sheet1").Cells(iRow+1,5) = 'add code

Hth,
Merjet