macro to delete rows if value 1 is in two differenet cells

Hi

Could someone help me with the following problem. If value 1 does not appear twice in the same row between rows 2 and 21 i want to delete all those rows. If it does appear then nothing happens. Then the same thing in rows 22 to 41 and 42 to 61 and so on....

Please see the file.