title: Copy active cell row and insert copied row directly underneath
body: <p>I am trying to copy the active cell row and want to insert the copied row directly beneath that row. Like so:</p>
  
  <pre><code>Row 1   &lt; User clicks relevant cell to trigger macro (Active Row)
  Row 2   &lt; Copied Cell gets inserted directly beneath Active Row
  </code></pre>
  
  <p>I want this to happen even if there is a row already below my Active Row i.e. this, when user clicks to copy Active Row:</p>
  
  <pre><code>Row 1 &lt; Active Row
  Row 2 &lt; Other Content 
  </code></pre>
  
  <p>Would turn into this:</p>
  
  <pre><code>Row 1 &lt; Active Row
  Row 2   &lt; Copied Cell gets inserted directly beneath Active Row
  Row 3 &lt; Other Content 
  </code></pre>
  
  <p>Here is my code which I have tried to put together with no luck:</p>
  
  <pre><code>'Add Tender Type Row
  Dim NextRow As Range
  Set NextRow = Range("B" &amp; Sheets("Home").ActiveCell.Rows.Count + 1)
  If Not Intersect(Target, Range("AF" &amp; ActiveCell.Row)) Is Nothing And Range("AF" &amp; ActiveCell.Row).Value = "+" Then
  Sheet1.Range("B" &amp; ActiveCell.Row &amp; ":AF" &amp; ActiveCell.Row).Copy
  Sheet1.Activate
  NextRow.PasteSpecial Paste:=1, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  Application.CutCopyMode = False
  End If
  </code></pre>
  
  <p>Please can someone show me the correct way to do this?</p>