vba print area

[kelvin_9]

hello all,
i have a worksheet with column A-I, row 1-250.
however i'm not necessary to use every row every time.

the question is how can i simply set the print area automatically to last row thus i can use less paper?
it seems my code below will goto row 250 every time and i will print "blank sheet" out

Dim LastRow As Long
    LastRow = Range("A:I").SpecialCells(xlCellTypeLastCell).Row
    ActiveSheet.PageSetup.PrintArea = "$A$1:$I$" & LastRow

thanks for everyone.

 

[kelvin_9]

Try...

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