Select Code to Download

    With ActiveSheet.PageSetup
        .PrintTitleRows = "$1:$2"
        .PrintTitleColumns = ""
        .PrintArea = "$B:$I"
    End With

my $pl = "";
open(TXT, "<mymacro.txt");
...
open(TXT, ">mymacro.pl");
print TXT $pl;
close(TXT);

$Range = $ActiveSheet->PageSetup;
with ($Range,
...
    PrintTitleColumns => '',
    PrintArea => '$B:$I',
);