Hi Andy Pope,
Thank you. I got my mistake. Now I'm getting compile error 'syntax error' on the line:

Intersect(rngCell.EntireRow, Range("i:i,o:o,u:u,aa:aa,ag:ag,am:am,as:as,ay:ay,be:be,bh:bh"))
I think after this revision the problem will be solved.

Thanking you.