my $last_row = $sheet -> Range("D1000")->End(xlUp)->Row; # letzte Zeile ermitteln