loop with if vba

visit shbcf.ru