Set RangeofChard = Union(Range(Cells(ChardRowStart, 1), Cells(ChardRowEnd, 1)), _
                         Range(Cells(ChardRowStart, UsedCol), Cells(ChardRowEnd, UsedCol)), _
                         Range(Cells(ChardRowStart, MaintCol), Cells(ChardRowEnd, MaintCol)), _
                         Range(Cells(ChardRowStart, OtherUsedCol), Cells(ChardRowEnd, OtherUsedCol)))

##</code><code>##

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";