Code to delete rows only works sometimes

Hi BartSeli,

I tested this code:

Sub BartseliDel()
    
    Dim rng As Range, cell As Range, del As Range
    Set rng = Intersect(Range("K:K"), ActiveSheet.UsedRange)
    For Each cell In rng
    If (cell.Value) = "1" _
    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

and it ran like a charm!