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