my $row = 1;
my $date = $Sheet->Cells( $row, $LastCol )->{ Value };

##</code><code>##

my $date = $excel->ActiveCell->SpecialCells( xlLastCell )->{Value};
# assuming you've imported Excel's constants with Win32::OLE::Const