title: Copy Sheet1 range paste eight rows down on Sheet2
body: <p>My script copies, paste from sheet1. How would I let me script set the ongoing data on the 2nd next page, "8" rows down within Sheet2?</p>
  
  <pre><code>Sub Macro()
  
      Sheets("Sheet1").Select
      Cells.Select
      Selection.Copy
      Sheets("Sheet2").Select
      Cells.Select
      ActiveSheet.Paste
      Range("A1").Select
      Cells.Select
      Cells.EntireColumn.AutoFit
      Range("A1").Select
      Columns("F:F").ColumnWidth = 10
  
  
   For Each ws In Sheets
   On Error Resume Next
   For Each r In ws.UsedRange.SpecialCells(xlCellTypeConstants)
   If IsNumeric(r) Then r.Value = Val(r.Value)
   Next
   Next
  
      Sheets("Sheet1").Select
      Range("A18:A50").Select
      Selection.Copy
      Sheets("Sheet2").Select
      Range("B122").Select
      ActiveSheet.Paste
      Range("B122").Select
      Application.CutCopyMode = False
  
      Sheets("Sheet1").Select
      Range("B18:B50").Select
      Selection.Copy
      Sheets("Sheet2").Select
      Range("A122").Select
      ActiveSheet.Paste
      Range("A122").Select
      Application.CutCopyMode = False
  
       Sheets("Sheet1").Select
      Range("J18:J50").Select
      Selection.Copy
      Sheets("Sheet2").Select
      Range("C122").Select
      ActiveSheet.Paste
      Range("C122").Select
      Application.CutCopyMode = False
  
         Sheets("Sheet1").Select
      Range("R18:R50").Select
      Selection.Copy
      Sheets("Sheet2").Select
      Range("D122").Select
      ActiveSheet.Paste
      Range("D122").Select
      Application.CutCopyMode = False
  
        Range("C122:C200").Select
      With Selection
          .HorizontalAlignment = xlRight
          .VerticalAlignment = xlTop
          .WrapText = False
          .Orientation = 0
          .AddIndent = False
          .IndentLevel = 0
          .ShrinkToFit = False
          .ReadingOrder = xlContext
          .MergeCells = False
      End With
  
  End Sub
  </code></pre>