title: Insert row below based on cell value
body: <p>I found a macro at <a href="https://stackoverflow.com/questions/16513654/insert-copied-row-based-on-cell-value-excel-2007-macro">Insert copied row based on cell value</a>.</p>
  
  <p>The macro inserts a blank row above any row that has a value of "0" in column E.</p>
  
  <p>Instead of the empty row appearing above, I need it to appear below.</p>
  
  <pre><code>Sub BlankLine()
  
      Dim Col As Variant
      Dim BlankRows As Long
      Dim LastRow As Long
      Dim R As Long
      Dim StartRow As Long
  
      Col = "E"
      StartRow = 1
      BlankRows = 1
  
      LastRow = Cells(Rows.Count, Col).End(xlUp).Row
  
      Application.ScreenUpdating = False
  
      With ActiveSheet
          For R = LastRow To StartRow + 1 Step -1
              If .Cells(R, Col) = "0" Then
                  .Cells(R, Col).EntireRow.Insert Shift:=xlDown
              End If
          Next R
      End With
  
      Application.ScreenUpdating = True
  
  End Sub
  </code></pre>