Eliminating rows of data in excel spreadsheet that have blank cell in row A and data in row B - E

[Steven R. Berke]

I have several rows of data at the bottom of an excel file that I want
to delete. These rows consist of 5 columns of data but in the case of
the rows I want to delete there is no data in cell A. This feature
only exists in the cells of the rows I want to delete all the other
rows have data in column "A". What I need is a macro that will delete
the rows that have blank cells in row "A" but have data in row "B"
thru "E".

 

[Bob Kilmer]

Steven,
If you want to delete all rows in the active worksheet that have a blank
cell in column A, this will do it.

Activesheet.Columns("A").SpecialCells(xlBlanks).EntireRow.Delete xlShiftUp

If you want to operate on a particular workbook, whether or not it is
active, this will do it.

Workbooks("Book1.xls").Worksheets("Sheet1").Columns("A").SpecialCells(xlBlan
ks).EntireRow.Delete xlShiftUp

If you want to operate on a worksheet in the workbook where the code
resides, this will do it.

This
workbook.Worksheets("Sheet1").Columns("A").SpecialCells(xlBlanks).EntireRow.
Delete xlShiftUp


Bob Kilmer