Set print area:far down it prints

[Directlinq]

At the moment this macro uses column A to detemin how far down the spredsheet is to print. Is it posible to change this macro so column B detemins how far down it prints. But i still want column A printed down to where column B is filled to. As if i change Cells(Rows.Count, 1) to Cells(Rows.Count, 2). It does not print column A.

myrange = Cells(Rows.Count, 1).End(xlUp).Address
ActiveSheet.PageSetup.PrintArea = "$l$1:" & myrange
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True

Many Thanks

[mudraker]

myrange = Cells(Rows.Count, 2).End(xlUp).Address
ActiveSheet.PageSetup.PrintArea = "$A$1:" & myrange