my $range = $worksheet -> UsedRange
    or die "No UsedRange found for $worksheet";
my $findresult = $range -> Find({What => "*", SearchDirection => xlPrevious, SearchOrder => xlByRows})
    or die "No result found for '*'";
my $row = $findresult -> {Row};
defined $row or die "No row found from $findresult";

my $col = $last_col = $findresult -> {Column};
defined $col or die "No col found from $findresult";