Sub PodsvetkaDubleiURL()
    Dim Dupes()     'объявляем массив для хранения дубликатов
    ReDim Dupes(1 To Selection.Cells.Count, 1 To 2)
     
    Selection.Interior.ColorIndex = -4142   'убираем заливку если была
    i = 3
    For Each cell In Selection
        If WorksheetFunction.CountIf(Selection, cell.Value) > 1 Then
            For k = LBound(Dupes) To UBound(Dupes)
                'если ячейка уже есть в массиве дубликатов - заливаем
                If Dupes(k, 1) = cell Then cell.Interior.ColorIndex = Dupes(k, 2)
            Next k
            'если ячейка содержит дубликат, но еще не в массиве - добавляем ее в массив и заливаем
            If cell.Interior.ColorIndex = -4142 Then
                cell.Interior.ColorIndex = i
                Dupes(i, 1) = cell.Value
                Dupes(i, 2) = i
                i = i + 1
            End If
        End If
    Next cell
End Sub

Sub ЗмінитиЗначенняНДХ()    Dim LastRow As Long
    Dim PriceRange As Range
    Dim cell As Range
    
    LastRow = Cells(Rows.Count, "I").End(xlUp).Row
    
    For Each cell In Range("I2:I" & LastRow)

        If IsNumeric(cell.Value) Then
            Dim Price As Double
            Price = CDbl(cell.Value)
                    
            For Each PriceRange In Range("B2:B" & LastRow)
                If PriceRange.Value Like "*ндх*" Then
                    ' Замініть текст "ндх" відповідно до ціни
                    If Price >= 0 And Price <= 1100 Then
                        PriceRange.Value = "ндх 400"
                    ElseIf Price > 1100 And Price <= 1800 Then
                        PriceRange.Value = "ндх 600"
                    ElseIf Price > 1800 And Price <= 2500 Then
                        PriceRange.Value = "ндх 900"
                    End If
                End If
            Next PriceRange
        End If
    Next cell
End Sub