Quote Originally Posted by MARK858 View Post
Try...

Code:
Sub macro1B()
    ActiveSheet.PageSetup.PrintArea = Range("A9:I" & Columns(2).Find("*", , xlValues, , xlByRows, xlPrevious).Row).Address
End Sub
Untested and expect typos as I am on my phone.
HOW COULD THIS HAPPENED? IMPRESSIVE
THANKS, MARK