search for cell and clear contents

[Mike]

I am working with a macro and I am in the final stages. I need to clean up
the excel file by deleting all the rows/columns not needed. What I am looking
for is a formula I can add to my macro that searches column A for the first
cell that contains 8 blank spaces " ", when it finds this cell, I
would like the formula to delete that entire row and everything beneath this
row. Something like:
Range(Selection, Selection.End(xlDown)).Select
Selection.ClearContents

 

[CoRrRan]

I am working with a macro and I am in the final stages. I need to clean up
the excel file by deleting all the rows/columns not needed. What I am looking
for is a formula I can add to my macro that searches column A for the first
cell that contains 8 blank spaces " ", when it finds this cell, I
would like the formula to delete that entire row and everything beneath this
row. Something like:
Range(Selection, Selection.End(xlDown)).Select
Selection.ClearContents

Try this:

Range("A:A").Find(What:=" ", LookIn:=xlValues).Activate
ActiveCell.Resize(ActiveCell.End(xlDown)).EntireRow.Delete

HTH, CoRrRan