Program a conditional script that will delete entire row if cell in column B is empty

**Rabbitstew** · 07-17-2012, 10:38 AM

Can someone please help program a conditional script that will delete entire row if column B is empty?

Thanks in advance!

**Leith Ross** · 07-17-2012, 12:12 PM

Hello Rabbitstew,

This will delete row 10 on the ActiveSheet if A2 contains no data.

    If Range("A2") ="" Then Rows(10).EntireRow.Delete

**Rabbitstew** · 07-17-2012, 01:30 PM

Ooops, sorry I meant to say if Column B is empty then delete the entire row

**Rabbitstew** · 07-17-2012, 01:54 PM

Never mind, I got it:

Sub DelRow()
Range("B:B").SpecialCells(xlCellTypeBlanks).EntireRow.Delete
End Sub

Thanks anyway!

**Leith Ross** · 07-17-2012, 01:33 PM

Hello Rabbitstew,

Do you want to delete a row if the cell in column "B" of that row is empty?

Re: Can someone please help program a conditional script that will delete entire row if A2