my $CB_COUNT = 0;
my $NM_COUNT = 0;

my $LastRow = $Sheet->UsedRange->Find({What=>"*",
    SearchDirection=>xlPrevious,
    SearchOrder=>xlByRows})->{Row};

my $LastCol = $Sheet->UsedRange->Find({What=>"*", 
                  SearchDirection=>xlPrevious,
                  SearchOrder=>xlByColumns})->{Column};
                  
                  print $LastRow."  and last column   ".$LastCol;


for $i (1 .. $LastRow)
{
	my $rango5 = "E".$i;
	my $rango6 = "J".$i;
	if ($Sheet->Range("$rango5")->{Value} !~ /MSD/)
	{
		$CB_COUNT++;
	}
	if ($Sheet->Range("$rango5")->{Value} !~ /MSD/ && $Sheet->Range("$rango6")->{Value} !~ /No_/i)
	{
		$NM_COUNT++;
	}
}

##</code><code>##

my $CB_COUNT = 0;
my $NM_COUNT = 0;

$LastRow = $Sheet->UsedRange->Find({What=>"*",
    SearchDirection=>xlPrevious,
    SearchOrder=>xlByRows})->{Row};

my $LastCol = $Sheet->UsedRange->Find({What=>"*", 
                  SearchDirection=>xlPrevious,
                  SearchOrder=>xlByColumns})->{Column};
                  
                  print $LastRow."  and last column   ".$LastCol;


for $i (1 .. $LastRow)
{
	my $rango5 = "E".$i;
	my $rango6 = "J".$i;
#	my $rango7 = "
	if ($Sheet->Range("$rango5")->{Value} !~ /MSD/)
	{
		$CB_COUNT++;
		if($Sheet->Range("$rango6")->{Value} !~ /No_/i)
		{
			$NM_COUNT++;
		}
	}
}