title: Excel VBA Macro - Copy and insert copied cells
body: <p>I can't seem to make to this work. I keep getting stuck on </p>
  
  <pre><code>    Rows(rng 5).Select
  </code></pre>
  
  <p>What I am trying to do is copy the row of the active cell and inserting the copied cell in a row that is 5 rows below the active cell.</p>
  
  <pre><code>Sub CopyConcatenate()
  
  
      Dim ws As Worksheet
      Dim rng As Range
  
      Set rng = ActiveCell.Rows
  
      rng.Select
      Selection.Copy
      Rows(rng 5).Select
      Selection.Insert Shift:=xlDown
  
  End Sub
  </code></pre>