my $Range = $currentsheet->Union($currentsheet->Range($currentsheet->Cells($HeaderRow, 1), $currentsheet->Cells($ToIndex, 1)), 
                         $currentsheet->Range($currentsheet->Cells($HeaderRow, $UsedCol), $currentsheet->Cells($ToIndex, $UsedCol)), 
                         $currentsheet->Range($currentsheet->Cells($HeaderRow, $MaintCol), $currentsheet->Cells($ToIndex, $MaintCol)), 
                         $currentsheet->Range($currentsheet->Cells($HeaderRow, $OtherUsedCol), $currentsheet->Cells($ToIndex, $OtherUsedCol)));
print "$Range\n";