VBA Code

[Pasha]

As a part of a Macro, I am setting up the printing area by:

ActiveSheet.PageSetup.PrintArea = "$A$1:$S$579"

However, the target file is not static, last row might change
depending on number of records I have. How do I setup the last row t
be the last non blank row in Active Sheet? I don't want to select th
entire sheet (A:S), because it will have many blank pages

 

[JE McGimpsey]

one way:

With ActiveSheet
.PageSetup.PrintArea = .UsedRange.Columns("A:S").Address
End With

 

[LEB]

If you don't have blank rows or columns in your print
area, you could write code to select cell A1, then use
Selection.CurrentRegion.Select.

Another idea would be to give a range name to the print
area, and use the Resize method to expand it by one row
when you add the new row of data.

 

[Pasha]

Thanks to both of you. It worked