for (my $ws = 1; $ws < $more; $ws++) {
	# Find last ROW                  
	$last_row = $Book1->Worksheets($ws)->UsedRange -> Find({What => "*", 
	SearchDirection => xlPrevious, 
	SearchOrder => xlByRows})-> {Row};

	my $end = $last_row + 1;                

	# If Finds empty ZIP deletes row
	for (my $count = 2; $count < $end; $count++) {
		my $cellTxt = $Book1->Worksheets($ws)-> Range("E$count") -> {Value};
		if ($cellTxt == "") { #This doesnt seem to work
			  $Book1->Worksheets($ws)-> Range("$count:$count") -> Delete;
		}
	}
}