Quicker function than delete entire row

Hi

I have some example data and macro attached that has about 20,000 rows in size the real data maybe upto 100,000 rows.

Is there a quicker way of combinig the data as per the macro using clear contents of the row and resort or some other logical test ?

The delete entire row takes 3mins to run for the 20,000 test rows.

Any help would be good

Thanks
David