HI,
Here's a code that may work. It's a modified version of a code the "NoSpark" created.
Copy and paste to code module.
Code:
Sub DeleteBlank()
'''Modified code that "NoSparks created.
' remove rows with blank in column "B"
With Application
.ScreenUpdating = False
.Calculation = xlCalculationManual
End With
'delete rows where B is blank
Range("B1", Cells(Rows.Count, "B").End(xlUp)).SpecialCells(xlBlanks).EntireRow.Delete
With Application
.ScreenUpdating = True
.Calculation = xlCalculationAutomatic
End With
End Sub
Test a a copy of your data.