putting all relevant lines together

[bigdan]

I was working on an excel file with 100K lines in it, out of that about 7K didnt have an Artist name in there. This was getting really cumbersome though as the file kept getting hung, I assume b/c of the huge size. So I filtered by ones which didnt have a blank for artist, and erased them, thereby just leaving the 7K lines which dont have an artist. The problem though is that these lines arent together, each line is now a few hundred liens apart. How do I put them together and remove all the blanks?

 

[pboltonchina]

Try this

Sub DeleteRowWithColumnAblank()
Sheets("Sheet1").Range("A1:A1048576").SpecialCells(xlCellTypeBlanks).EntireRow.Delete
End Sub

 

[bigdan]

thanks man.