title: macro loop to copy paste hangs
body: <p>Can someone help me with this loop macro?
  I want the loop to copy <code>Range("S16:Y16").Select</code>
  Move down three rows and paste it, then move down three rows and repeat until it reaches 20.</p>
  
  <p>Error is that it goes down three rows then hangs. Any help would be appreciated</p>
  
  <p>Example code</p>
  
  <pre><code>Sub pop1()
      '  Macro
      '
      ' Keyboard Shortcut: Ctrl+f
      '
      Range("S16:Y16").Select
      Selection.Copy
      Range("S19").Select
      ActiveSheet.Paste
  
      Range("s19:Y19").Select
  
      For i = 1 To 20
          Selection.Copy
          Range("s19").Offset(3, 0).Select
          ActiveSheet.Paste
  
          ActiveCell.Offset(3, 0).Select
          ActiveSheet.Paste
      Next i
  End Sub
  </code></pre>