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