title: Continue macro for 53 more rows
body: <pre><code>Sub attempt()
  '
  ' attempt Macro
  '
  
  '
  For i = 0 To 818
      Sheets("hedz").Select
      q = (i * 4) + 1
      ActiveSheet.Range(Cells(1, q), Cells(1, q + 3)).Select
      Selection.Copy
      Sheets("Sheet1").Select
      Range("A" &amp; i + 1).Select
      ActiveSheet.Paste
      Sheets("hedz").Select
  </code></pre>
  
  <p>I need help repeating this for 53 rows and restart pasting every 818th row in column A on sheet1. I already accomplished this through repeating the macro 53 times but I am just a beginner and could not figure out how. A copy of my spreadsheet:</p>
  
  <p><a href="https://i.stack.imgur.com/dffnq.jpg" rel="nofollow noreferrer"><img src="https://i.stack.imgur.com/dffnq.jpg" alt="Spreadsheet"></a></p>