Appended Macro not Performing all Steps

Try:

Sub DCIFCleanup()
'
' DCIFCleanup Macro
' Cleans up Working DCIF by deleting ELOCS, 2nds, Unpaid balances < $50k and loans delinquent more than 30 days.
'
Dim rng As Range, cell As Range, del As Range
Set rng = Intersect(Range("A2:A3000"), ActiveSheet.UsedRange)
For Each cell In rng
    If cell.Offset(0, 9).Value = "ELOC LOANS" _
    Or cell.Offset(0, 4).Value > 30 _
    Or cell.Offset(0, 10).Value < 50000 _
    Then
        If del Is Nothing Then
        Set del = cell
        Else: Set del = Union(del, cell)
        End If
    End If
Next cell
On Error Resume Next
del.EntireRow.Delete
End Sub

Regards, TMS