Copy and transfer data from a Main sheet to two sheets based on two conditions

@xladept

This works with both 2010 and 2016

Sub PageBreak()

    Dim lRow As Long, ws As Worksheet
    Set ws = ActiveSheet
    
    ws.ResetAllPageBreaks
    
' fit to 1 page wide
    With ws.PageSetup
        .Zoom = False
        .FitToPagesWide = 1
    End With
    
'break every 36 rows
    break = 36
    lRow = ws.Range("A1").SpecialCells(xlCellTypeLastCell).Row
    For i = break + 1 To lRow Step break
        ws.HPageBreaks.Add Before:=ws.Cells(i, 1)
    Next
       
End Sub