dynamic print range

I have this macro:
---------------------------------------------------
Sub setprintarea()
Dim myrange As String
myrange = Cells(Rows.Count, 37).End(xlUp).Address
ActiveSheet.PageSetup.PRINTAREA = "$A$1:" & myrange
ActiveWindow.SelectedSheets.PrintOut Copies:=1

End Sub

----------------------------------------------------

how do i modify this macro to add additional column which happens to have data in only some of the cells.

myrange = Cells(Rows.Count, 38).End(xlUp).Address

will only set the range where the last input in that column is and will omit the rest of data in column 37 from that point on,

Please help

Hi,

Try the following line of code (just replace "YourSheetName" with the sheet name the code is to be used for):

ActiveSheet.PageSetup.PrintArea = "$A$1:AK" & Sheets("YourSheetName").Range("AK65536").End(xlUp).Row

Hope this helps.

Robert