VBA Sort Blanks

[db2021]

I am trying to sort a sheet by blanks in 2 columns. For example, any row that has blanks in both key columns will be deleted. However, if either or both columns have information, it should be left alone. I'm struggling to get this to work with both columns rather than just one.

 

[Joe4]

Welcome to the Board!

Here is one way:

Sub MyDeleteRows()

    Dim lr As Long
    Dim r As Long
    
    Application.ScreenUpdating = False
    
'   Find last row in column A with data
    lr = Cells(Rows.Count, "A").End(xlUp).Row
    
'   Loop through all rows backwards up to row 3
    For r = lr To 3 Step -1
'       Check for blanks in columns B and C and delete rows
        If Cells(r, "B") = "" And Cells(r, "C") = "" Then Rows(r).Delete
    Next r
    
    Application.ScreenUpdating = True
    
End Sub