Как вставить столбец «case» из Sheet1 в Sheet2, а затем, разрыв страницы со страницы 1 на страницу 2 на «Sheet2»?

Question

Мой сценарий VBA должен искать по строкам Range по заголовкам, затем копировать все строки данных, вставлять в Sheet2 -> «A122, B122, C122, D122», затем после Pagebreak с данными цикла на стр. 2, 3, 4. Любые особые комментарии, положительные отзывы будут действительно оценены любым мастером-гуру.

Sub AddPageBreak ()

Dim LastRow As Long
Dim Sheet2 As Worksheet
Dim Unit As Integer
Dim i As Long
Dim r As Long


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

Range("A18:A50").Copy
Results.Range("A" & LastRow + 1).PasteSpecial xlValues
Range("B18:B50").Copy
Results.Range("B" & LastRow + 1).PasteSpecial xlValues
Range("J18:J50").Copy
Results.Range("C" & LastRow + 1).PasteSpecial xlValues
Range("R18:R50").Copy
Results.Range("D" & LastRow + 1).PasteSpecial xlValues

Application.DataEntryMode = False




For i = 1 To Sheet1.Cells(Sheet1.Rows.Count, 1).End(xlUp).Row 
    Select Case CStr(Sheet1.Cells(i, 18).Value)
    Case "Numbers"
        Sheet2.Cells(122, 1).Value = Sheet1.Cells(i, 1).Value
    Case "No Active"
        Sheet2.Cells(122, 1).Value = Sheet1.Cells(i, 1).Value
    Case "Cleared"
        Sheet2.Cells(122, 1).Value = Sheet1.Cells(i, 1).Value
    Case "Notice"
        Sheet2.Cells(122, 1).Value = Sheet1.Cells(i, 1).Value
    Case "DM Letter "
        Sheet2.Cells(122, 1).Value = Sheet1.Cells(i, 1).Value
    Case "Letters "
        Sheet2.Cells(122, 1).Value = Sheet1.Cells(i, 1).Value
    Case "Estimate Payment"
        Sheet2.Cells(122, 1).Value = Sheet1.Cells(i, 1).Value


    End Select
Next i


Unit = Range("I1").Value
i = 2
r = 2

Do While i <= Unit

If Cells(r, 1).Value = "Unit" Then

  Rows(r).PageBreak = xlPageBreakAutomatic
  i = i + 1

End If

r = r + 1

Loop


End Sub