VBNA Macro: Angiv udskriftsområde

Vha en macro vil jeg angive et udskriftsområde:

  Range("A1:I4").Select
  Range(Selection, Selection.End(xlDown)).Select

Herefter vil jeg angive det netop markerede område (hvis størrelse jo ar forskelligt, afhængig af hvor meget data der er i regnearket) som Print area

Men optager jeg en macro får jeg blot:

    Range("A1:I4").Select
    Range(Selection, Selection.End(xlDown)).Select
    ActiveSheet.PageSetup.PrintArea = "$A$1:$I$74" 

Det er jo ikke så fedt - den tager en absolut værdi ( "$A$1:$I$74" ) og så virker det jo ikke når jeg skifter data

Kan man ikke gøre noget i stil med
    dim MyRange as Range
    Range("A1:I4").Select
    Range(Selection, Selection.End(xlDown)).Select
    MyRange = Activeselection 'Eller noget i den stil
    ActiveSheet.PageSetup.PrintArea = MyRange

Hjææælp