VBA script to delete rows

[HeyMike]

Hello,

I have a list of about 300,000 company names with 1,000 of them being usable. The usable company names have content in column C. I essentially need to delete any row that does not have content in column C, but I need to keep five rows above and five rows below any company with criteria in column C. Sometimes the criteria in column C is two rows apart, sometimes it is 50,000 rows apart. What is the VBA script for this? Below is a screen shot...

 

[Weaver]

It might work for all the rows if you

dim x as double

integer only works for values +/- 32,000 approx, so it's always better to dim anything that might have to count rows as a double integer, which has a far wider range of possible values.

On the other hand, 300k is a big dataset, so chopping it up mightn't be a bad thing anyway.

 

[Weaver]

It might work for all the rows if you

dim x as double

integer only works for values +/- 32,000 approx, so it's always better to dim anything that might have to count rows as a double integer, which has a far wider range of possible values.

On the other hand, 300k is a big dataset, so chopping it up mightn't be a bad thing anyway.

My bad, double is an fp format, long is the format I was thinking of.