Loop in visible cells filtered

How to loop all visible cells in column "I" and if algebric summ of a pair of cell is =zero insert in refered cell column "Z" the value "ZERO".
in this case (attached file) the cell with ZERO in column "Z" are:
8, 11, 20, 23,27,29
all with a sub or function...