Remove all but first duplicate

Sub RemoveDupsFix()
' Second Block to deal with Duplicates - SLA Type : Fix
Dim rng As Range, rngT As Range
Dim c As Range
Dim FirstFilteredRow As Range
Dim n As Long, i As Long
Dim a As Long, b As Long
Set rng = Sheet1.[A1].CurrentRegion
Application.ScreenUpdating = False
    With rng
    ' Block #2
        .AutoFilter
        .AutoFilter Field:=2, Criteria1:="Duplicate"
        .AutoFilter Field:=1, Criteria1:="Fix"
    End With
    
        ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
        ' Loop for Each Unique Task INC                                                          '
        ' Filter with same criteria in order to remove Rows when Priority is Lower than Top one  '
        ' and ONLY Keep the One Row which shows The Top Priority N°  i.e. P with Smallest Number '
        ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
    
        Set rngT = Sheet1.Range("C2", Range("C" & Rows.Count).End(xlUp))
        If Not rngT Is Nothing Then
            With CreateObject("Scripting.Dictionary")
                For Each c In rngT.SpecialCells(xlCellTypeVisible).Cells
                    n = n + 1
                    If Not .Exists(CStr(c.Value)) Then .Add CStr(c.Value), n
                Next c
                
                For i = 0 To .Count - 1
                    rng.AutoFilter Field:=3, Criteria1:=.Keys()(i)
                    b = Sheet1.Range("A100000").End(xlUp).Row
                    Set FirstFilteredRow = rng.Offset(1, 0).SpecialCells(xlCellTypeVisible).Areas(1).Rows(1)
                    a = FirstFilteredRow.Row
                    rng.AutoFilter Field:=5, Criteria1:=">" & "*" & Evaluate("=SMALL(RIGHT(E" & a & ":E" & b & ",1)*1,1)")
                    Range("A2", Range("A" & Rows.Count).End(xlUp)).SpecialCells(xlCellTypeVisible).EntireRow.Delete
                Next i
            End With
        End If
        
    rng.AutoFilter
    
Application.ScreenUpdating = True

End Sub

Sub RemoveDupsFixAdapted()
' Second Block to deal with Duplicates - SLA Type : Fix
Dim rng As Range, rngT As Range
Dim c As Range
Dim FirstFilteredRow As Range
Dim n As Long, i As Long
Dim a As Long, b As Long

Set rng = Sheet1.[A1].CurrentRegion
Application.ScreenUpdating = False
    
    With rng
    ' Block #4
        .AutoFilter
        .AutoFilter Field:=8, Criteria1:="Duplicate"
        .AutoFilter Field:=5, Criteria1:="Fix"
    End With
    
        ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
        ' Loop for Each Unique Task INC                                                          '
        ' Filter with same criteria in order to remove Rows when Priority is Lower than Top one  '
        ' and ONLY Keep the One Row which shows The Top Priority N°  i.e. P with Smallest Number '
        ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
    
        Set rngT = Sheet1.Range("J2", Range("J" & Rows.Count).End(xlUp))
        If Not rngT Is Nothing Then
            With CreateObject("Scripting.Dictionary")
                For Each c In rngT.SpecialCells(xlCellTypeVisible).Cells
                    n = n + 1
                    If Not .Exists(CStr(c.Value)) Then .Add CStr(c.Value), n
                Next c
                
                For i = 0 To .Count - 1
                    rng.AutoFilter Field:=10, Criteria1:=.Keys()(i)
                    b = Sheet1.Range("A100000").End(xlUp).Row
                    Set FirstFilteredRow = rng.Offset(1, 0).SpecialCells(xlCellTypeVisible).Areas(1).Rows(1)
                    a = FirstFilteredRow.Row
                    rng.AutoFilter Field:=15, Criteria1:=">" & "*" & Evaluate("=SMALL(RIGHT(O" & a & ":O" & b & ",1)*1,1)")
                    Range("A2", Range("A" & Rows.Count).End(xlUp)).SpecialCells(xlCellTypeVisible).EntireRow.Delete
                Next i
            End With
        End If
        
    rng.AutoFilter
    
Application.ScreenUpdating = True

End Sub