Delete entire row if 2 column data is blank at the same time

Hello again furkanyildiz,

Here is some code to delete the unwanted rows:

Updated 04/19/25 @ 15:45

Updated 04/20/25 @ 08:40 (as per John_Ru's recommendation)

I was rushing when I originally posted the code earlier. I've had some time to do some better testing and found a mistake. The code below is the corrected code.

Sub Delete_Rows_with_Blanks()

' macro written by WillieD24 for teachexcel.com
' this code will delete rows if cells "C" AND "D" are blank/empty
' this code will also delete rows with merged cells
' the code loops though all sheets in the workbook

Dim WScount As Long   ' number of worksheets in the workbook
Dim Lrow As Long   ' last row of used range
Dim r As Long   ' row number to check
Dim ws As Worksheet

' how many worksheets are in the workbook
WScount = ThisWorkbook.Worksheets.Count
Application.ScreenUpdating = False

For Each ws In Worksheets
    ws.Activate
    Lrow = ws.UsedRange.Rows.Count

        For r = Lrow To 2 Step -1
            With ws
                If Cells(r, 3) = "" And Cells(r, 4) = "" Then   ' cells "C" and "D" are empty
                    Rows(r).EntireRow.Delete
                End If
            End With
        Next r
        Cells(1, 1).Select
Next ws
Application.ScreenUpdating = True

End Sub
'

If this is the answer you were looking for please mark my answer as Selected

Cheers   :-)