Loop through rows and delete based on criteria

hi yolandraro30, welcome to the forum. try this:

Sub test()

Columns(1).Insert
With Range("D2", Range("D" & Rows.Count).End(xlUp)).Offset(, -3)
    .Formula = "=COUNTIF($D$2:D2,D2)"
    .Value = .Value
End With
For v = Range("A" & Rows.Count).End(xlUp).Row To 2 Step -1
    If Cells(v, 1) > 10 Then
        Rows(v).Delete
    End If
Next v
Columns(1).Delete

End Sub