$lastdate =  $Sheet->Range("CK1")->Win32::OLE::valof({'Value'});
print "Data is THROUGH $lastdate \n\n";