# Resize Columns
my @columnheaders = qw(A:B);
    foreach my $range(@columnheaders){
        $Sheet->Columns($range)->AutoFit();
    }
# Order Rows
$tmp = "$mylastcol2".'3';
$Rangea = $Sheet->Range("$tmp");
$Rangeb = $Sheet->Range("a3");
$Excel->Selection->Sort({Key1 => $Rangea,
                         Order1 => xlDescending,
                         Key2 => $Rangeb});