Delete rows by criteria

[Deverti]

Im using this simple code as a part to clean a software export.

The additional criteria i dont know how to implement would be:
delete row if cell in column A is the only cell in said row that holds any value

Sub DelEmptyRows()
lRow = Range("A" & Rows.Count).End(xlUp).Row
    Set rngA = Range("A10:A" & lRow)

    With ActiveSheet
        rngA.SpecialCells(xlCellTypeBlanks).EntireRow.Delete
    End With

End Sub

 

[JoeMo]

Untested, but see if this works on a copy of your worksheet.

Sub DelEmptyRows()
Application.ScreenUpdating = False
lRow = Range("A" & Rows.Count).End(xlUp).Row
    Set rngA = Range("A10:A" & lRow)
    For i = 1 To rngA.Rows.Count
        If Application.CountA(rngA(i)) = Application.CountA(rngA(i).EntireRow) _
            Then rngA(i).Value = ""
    Next i
    On Error Resume Next
    rngA.SpecialCells(xlCellTypeBlanks).EntireRow.Delete
    On Error GoTo 0
Application.ScreenUpdating = True
End Sub

 

[Deverti]

that was quick and it runs perfectly.
thanks joe

 

[JoeMo]

that was quick and it runs perfectly.
thanks joe

You are welcome - thanks for the reply.