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

Pertinent to you question, modify a single line in original code: instead of:

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

use this one:

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

Rgds,