Delete entire row if cell is blank

[gripper]

I have a spreadsheet that I have created several macros to clean up some data but I have one last step that is confusing me.

Part of my other macros has to do with stacking columns from C right into column A one on top of another. Because my columns are uneven when I stack them in Column A there is some empty cells.

I would like to create a macro that will go down the list in column A and if it comes across a cell in Column A that is empty it will delete that entire row so eventually all the data in column A will have no blank cells. The length of that data in Column A is about 8000 maximum. When it is shrunk down and compiled correctly it will be around 4500 row +/-.

There will be data in Column B but that can be deleted if there is no coorisponding data in Column A.

Any help would be greatly appreciated.

 

[jeffreybrown]

How about...

Sub DelBlk()
    Columns(1).SpecialCells(xlCellTypeBlanks).EntireRow.Delete
End Sub

 

[Rasm]

Jeffrey - any idea how to get it to skip the first 3 rows - I suppose I could add a space - that way it is not empty

 

[brettdj]

hth

Dave

Sub DelBlk()
On Error Resume Next
Range([a4], Cells(Rows.Count, "A").End(xlUp)).SpecialCells(xlCellTypeBlanks).EntireRow.Delete
End Sub

 

[brettdj]

Pls note that this code does use the last used cell in column A as a "marker" to judge where to delete from (A4 to Ax)

If another column (say B) is potentially longer then the code can be adjusted to cater for this

Cheers

Dave

 

[gripper]

Sorry for the delayed response but JeffreyBrown code worked perfectly. Thanks alot I really appreicate the help.

 

[Rasm]

Brett
Thanks - much appreciated