Insert row below based on cell value

Question

I found a macro at Insert copied row based on cell value.

The macro inserts a blank row above any row that has a value of \"0\" in column E.

Instead of the empty

Answer 1

Edit the following line from:

.Cells(R, Col).EntireRow.Insert Shift:=xlDown

to:

.Cells(R+1, Col).EntireRow.Insert Shift:=xlDown