Delete rows if column contains a blank code included

**v3x0rg** · 10-11-2010, 09:52 AM

Hello I need help filling out this macro that i've pulled from another thread.
And here is the code

Sub delete_rows_blank()
 
On Error GoTo End
 
[BE3:BE14204 ].SpecialCells(xlCellTypeBlanks).EntireRow.Delete
 
End:
 
End Sub

My row is BE3:BE14204 That way if there is a blank within that range (column range) it deletes the entire row. I keep getting a syntax error, what is going wrong?

The debugger highlights the first part "Sub delete_rows_blank()"

**jeffreybrown** · 10-11-2010, 10:01 AM

Hello & welcome to the board,

If you are just trying to delete an entire row if column BE is blank then this will work.

Sub Del_If_ColumnBE_Is_Empty()
  Range("BE1:BE14204").SpecialCells(xlCellTypeBlanks).EntireRow.Delete
End Sub

**Marcol** · 10-11-2010, 10:01 AM

Try this

1/. Filter your Data on Column BE for Blanks
2/. Select all of the resultant rows, and Delete them (Delete > Rows)
3/. Remove the filter.

Hope this helps