title: Insert Row without Pasting
body: <p>I am trying to debug the following small macro:</p>
  
  <pre><code>Sub InsertRowAbove()
  '
  ' InsertRow Macro
  ' Pushes active row down
  '
      Dim N As Long
      ActiveCell.EntireRow.Insert Shift:=xlDown
      N = Cells(Rows.Count, "G").End(xlUp).Row
      Range("G4").Copy Range("G5:G" &amp; N)
      Range("J4").Copy Range("J5:J" &amp; N)
  
  End Sub
  </code></pre>
  
  <p>The macro should allow the user to insert an empty row directly above the active cell and fill down formulas in columns <strong>G</strong> and <strong>J</strong>.</p>
  
  <p>The macro works.</p>
  
  <p>If, however, the user performs a copy/paste operation just before  running the macro, the macro will attempt to also paste material into the new row.</p>
  
  <p>We want to macro to leave the newly inserted row empty.</p>
  
  <p>Any suggestions??</p>