Скопируйте диапазон Sheet1 вставьте восемь строк вниз на Sheet2

Question

Мой скрипт копирует, вставляет из листа1. Как бы мне позволить скрипту установить текущие данные на 2-й следующей странице, "8" строк в Sheet2?

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