Well if it works .... This may be "tiny bit" faster, because it avoids one call to the OLE layer but I doubt you notice any difference unless your files are really large. It's also a bit more readable.

for $i (1 .. $LastRow)
{
    my $rango5 = "E".$i;
    my $rango6 = "J".$i;
    my $value5 = $Sheet->Range("$rango5")->{Value};
    my $value6 = $Sheet->Range("$rango5")->{Value};

    if ( $value5 !~ /MSD/)
    {
        $CB_COUNT++;
    }
    if ($value5 !~ /MSD/ && $value6 !~ /No_/i)
    {
        $NM_COUNT++;
    }
}
[download]