Hi, I have this code which works well to keep my print area to the range I want it. The only issue is when I keep adding rows it will confine it to 1 page and keep shrinking to fit.

How do I adjust the code to keep same size but make it go over more pages if necessary, and if possible keep the title of the page which is in row 301?


[VBA]Sub SetArea1()
Dim LastCellRow
LastCellRow = ActiveSheet.Range("b" & Range("ak301")).Row
While Cells(LastCellRow, 24) = 0
LastCellRow = LastCellRow - 1
Wend
ActiveSheet.PageSetup.PrintArea = Range("b301", Cells(LastCellRow, 24)).Address
End Sub[/VBA]