sub Get_Last_Row
{
   my ($Sheet) = @_;
   $Sheet->UsedRange->Find({What=>"*",
                                            SearchDirection=>xlPrevious,
                                            SearchOrder=>xlByRows})->{Row}
}
sub Get_Last_Col
{
   my ($Sheet) = @_;
   $Sheet->UsedRange->Find({What=>"*",
                                            SearchDirection=>xlPrevious,
                                            SearchOrder=>xlByColumns})->{Column}
}                              

##</code><code>##

#my $LastRange = $LastCol.$LastRow;
$LastRange = 'IV'.$LastRow;
$ArrayData = $DataSheet-> Range("A1:$LastRange")->{Value};