USE active
  m.ncli=ncli
    INDEX ON ncli TO hh
 DO WHILE .t.
          SET FILTER TO ncli=m.ncli
       GO bottom
        REPLACE  active.Count2 WITH Count1
  IF ncli<>m.ncli
    SKIP
     IF EOF()
       EXIT
     ENDIF
  endif
enddo