title: Copy Every n1 th row to sheet2 from row x1 to row x2 (sheet1), then copy Every n2 th row to sheet 2 right after every n th row data pasted
body: <p>I have an excel file with 2000 rows and 50 columns in sheet1. I need to copy and paste every other rows from Row 3 to Row 900 of sheet1 to sheet2 in same workbook. Then every 6th row from Row 901 to 2000 of sheet1 to sheet2 right after the rows pasted before. I am very new to VBA. Can anyone please help me with writing macro for this...</p>
  
  <p>Trying:</p>
  
  <pre><code>    Dim strValue As String
      Dim strCellNum As String
      Dim x As String
      x = 1
      For i = 1 To 700 Step 7
      strCellNum = "A" &amp; i
      strValue = Worksheets("Sheet1").Range(strCellNum).Value
      Debug.Print strValue
      Worksheets("Sheet2").Range("A" &amp; x).Value = strValue
      x = x + 1
      Next
  </code></pre>