Why in this part of code in the first CEL have "FIL." and not the
first cell in filter????
In this case 4500 when SOMMA is =0 ????
(start Sub SPOSTA_LINEE_ZERO())

If SOMMA = 0 Then
For Each CEL In RNG1
RIGA = CEL.Row
If CEL = SPORTELLO And Range("D" & RIGA).Value = SOSPESO Then
WS.Range("AA" & RIGA) = "ZERO"
WS.Range("AA1") = WS.Range("AA1") + 1
End If
Next CEL

here the file:
http://www.mytempdir.com/1247401