ell.ClearContentsiRng=Range («R9: R200») Each iCell In iRngiCell Like" * щем» Then iCell.ClearContentsiRng=Range («R9: R200») Each iCell In iRngiCell Like" * аем» Then iCell.ClearContentsiRng=Range («R9: R200») Each iCell In iRngiCell Like" * уем» Then iCell.ClearContentsSub