How to set range data would on next page with blank rows, eight cells down

[Unicode]

My Copy paste starts on "A122", continues running on next page, however, I tried inserting on purpose 8 additional rows for automatic insert after large data set runs from page 1 through all other pages. I need some help knowing why the last line of code does not include 8 rows down on next pages within same active worksheet.



Sub AddCopyPasteDataTenRowsDown()


Dim lastRow As Long
Dim Sheet2 As Worksheet
Dim lRow As Long, iRow As Long
Dim ws As Worksheet
Dim rng As Range
Dim r As Long






Set Results = Sheets("Sheet2")
lastRow = Results.Cells(Results.Rows.Count, "Z").End(xlUp).Row


Range("A2:B122,C2:d122").Copy
Results.Range("A" & lastRow + 10).PasteSpecial xlPasteAll




Application.DataEntryMode = False




ActiveWorkbook.Worksheets("Sheet1").PageSetup.CenterFooter = "Page " &
ActiveWorkbook.Worksheets("Sheet1").Index & " of " &
ActiveWorkbook.Sheets.Count
ActiveWorkbook.Worksheets("Sheet2").PageSetup.CenterFooter = "Page " &
ActiveWorkbook.Worksheets("Sheet2").Index & " of " &
ActiveWorkbook.Sheets.Count




Range("A1:A10").End(xlDown).EntireRow.Insert xlShiftDown


End Sub