Search for empty cell and delete that row plus the next 19 rows even if they contain data

[aprcamb]

Hi,
Been using examples from this forum for a long time and usually able to amend them to suit my needs but this time I am really stumped.

What I am trying to do seems simple enough and there are lots of examples on how to find blank and delete row.
Is there way of saying delete x rows instead of .EntireRow.Delete??

Here is what I am trying to achieve and maybe I am going about it the wrong way.
Column A has row headers that repeat every 19 lines.
They are names like this A1 CIName, A2 SerialNo A3 Supported and so on, then on the 20th row it starts again for however many records have been created
I want to check all column B to see if the ID field is blank and if so delete all 19 rows down even if some columns have data in and then carry on to the next Blank column delete until end of rows.

I am unable to post screen shots or files due to firewall restrictions.

This is kind of how the data looks:
A B C D E

A1 CIName ABC123 CBD456 EFG567 and so on
A2 SerialNo CDE567 balh blah and so on
This continues down to line with other criteria 19 then line 20 starts again
A20 CIName Blank
A21 SerialNo Blank
A23

Solution:
To check for blanks next to CIName and if found delete 19rows and continue down worksheet to end

I cannot use the Autofilter method to find blanks as some of the rows in between may contain data and I want those to be deleted also.

Would it be easier to Find CIName field check to see if Column B is blank and delete rows to next CIName field that is not blank?


Simples!! but I cannot figure out how

Any help greatly appreciated
Hope it all makes sense.