如果一个单元格不是红色或蓝色，则删除整行

My macro is provided below. I want to delete all the rows, in which not even one cell is blue or red! So, the macro performs some coloring in the beginning, which works great! But, when I want to just keep the rows that have the colored cells, it does not work correctly. The macro does not tell me that it has an error. It just runs but never stops running :p Any ideas? Much appreciated!My macro is provided below. I want to delete al