Delete Rows Below if Any Cell in column is not blank:

Hello,
I think (hope) this one will be easy.

I'm looking for some code that will accomplish the following:

If any cell in Column A is not blank, delete the 2nd, 4th and 6th rows below that cell.

For example:
If Cell A2 is not blank (it doesn't matter what the content is), delete rows 4, 6 and 8 (Shift Cells Up is OK).

Continue this pattern for all cells in Column A (I can add lastrow function later if needed).

The actual number of rows below is not that critical (4th, 6th, 8th, 6th, 8th, 10nth- it doesn't matter)- I'll take whatever code I can get and adapt it to my needs.

Thanks in advance,

Chad

PIC,
This worked perfectly, and thanks a TON for your help. Also- I'm very sorry for the late response. Not cool my part.

Thanks again.