Macro to Delete Blank Rows from row 3 onwards in Col B

[howard]

I have tried to write code to delete blank rows from Col 3 onwards, but no rows are being deleted

It would be appreciated if someone could assist me

 Sub Del_Blanks()

Dim LR As Long, I As Long
With Sheets("summary all tax types")

LR = .Range("A" & .Rows.Count).End(xlUp).Row
For I = LR To 2 Step -1

On Error Resume Next
Columns(I, 2).SpecialCells(xlCellTypeBlanks).EntireRow.Delete
On Error GoTo 0
Next I
 End With
 
End Sub

 

[Joe4]

What column do you want to check for the blanks?

 

[howard]

Sorry i wat to Check Col B for Blanks

 

[Joe4]

Try this:

Sub Del_Blanks()

    Dim LR As Long, I As Long

    With Sheets("summary all tax types")
        LR = .Range("A" & .Rows.Count).End(xlUp).Row
        For I = LR To 2 Step -1
            If .Cells(I, 2) = "" Then .Rows(I).Delete
        Next I
    End With
 
End Sub

 

[howard]

Many Thanks Joe. Your code works perfectly

 

[Joe4]

You are welcome.