Page break on last row

[sevenfive85]

Hi I'm looking for some codes to automate a page break. I need excel to look in column A for the last input and have a page break there. In the example below I would need a page break at the bottom of row 21. Thank you.

 

[sevenfive85]

Hi All,
I now got some codes that will add page break as I need but now I am encountering another issue, it wants to print below the first page break(which are empty pages). Is there a way to move the last manual page break up or let the printer know to print up to first page break only? Thank you


Sub MACRO3()
ActiveSheet.ResetAllPageBreaks
J = ActiveSheet.Cells(Rows.Count, "A").End(xlUp).Row
ActiveSheet.Rows(J + 1).PageBreak = xlPageBreakManual
End Sub

 

[sevenfive85]

Or is there a code that I can set it to print from A1:Kxxx (last row with something in column "A")?