two printing areas

[PIsabel]

I have a sheet where lines of data are pasted.
I can have a sheet with 1 , 10 or 100 lines
Then I insert formulas that summarize the information entered there to create a summary report.
I need a code that selects the print area of the two sets inserted but I need it to always be done on separate sheets.
I know that after the last line of data pasted I have an offset of 10 lines and the report lines are inserted on the 11th line and contain 15 lines.
Basically there are two printing areas that will always be printed on different sheets.
The only thing I managed to do was create a code that selected the first impression and do it separately, I didn't want to

Sub printteste()

    Dim LastRow1 As Long

    With ActiveSheet
    LastRow1 = .Cells(.Rows.Count, "F").End(xlUp).Offset(-10).Row
    .PageSetup.PrintArea = "C6:J" & LastRow1
    End With

End Sub

 

[BSALV]

 With ActiveSheet
    .PageSetup.PrintArea = "C6:J20,C25:J30" '2 ranges for your printarea (adapt to your situation)
    End With

 

[PIsabel]

It doesn't work because the report is inserted at the end of a line, 10 or 100, it never has a fixed cell

 

[BSALV]

with adapting to your situation, i meant

Sub printteste()
     Dim LastRow1 As Long

     With ActiveSheet
          LastRow1 = .Cells(.Rows.Count, "F").End(xlUp).Offset(-10).Row
          Set c1 = Range("C6:J" & LastRow1)                     'your 1st range
          Set c2 = c1.Offset(c1.Rows.Count + 11).Resize(15)     '2nd range is with a gap of 10 rows under the 1st and 15 rows
          .PageSetup.PrintArea = Union(c1, c2).Address
     End With

End Sub

 

[PIsabel]

Thank you very much.
works impeccably well

Obrigado = Thanks

with adapting to your situation, i meant

Sub printteste()
     Dim LastRow1 As Long

     With ActiveSheet
          LastRow1 = .Cells(.Rows.Count, "F").End(xlUp).Offset(-10).Row
          Set c1 = Range("C6:J" & LastRow1)                     'your 1st range
          Set c2 = c1.Offset(c1.Rows.Count + 11).Resize(15)     '2nd range is with a gap of 10 rows under the 1st and 15 rows
          .PageSetup.PrintArea = Union(c1, c2).Address
     End With

End Sub

 

[BSALV]

you're welcome