VBA Help

I need help correcting the following VBA code. It is a macro to set print area on an excel worksheet where the print area constantly changes.
  Cells.Select
    ActiveSheet.PageSetup.PrintArea = ""
    Range("A1").Select
    Application.Goto Reference:="printrangeselect"
    Range(Selection, Selection.End(xlDown)).Select
    ActiveSheet.PageSetup.PrintArea = "printrangeselect" & Range(Selection, Selection.End(xlDown)).Select
    ActiveWindow.SmallScroll Down:=-6
    Range("A1").Select
I am erroring out on the following code in the debugger:
ActiveSheet.PageSetup.PrintArea = "printrangeselect" & Range(Selection, Selection.End(xlDown)).Select
Nick's picture

PageSetup

try:
ActiveSheet.PageSetup.PrintArea = Selection.Address