Как отметить строки *дубликатов* каким - нибудь цветом?

Option Explicit
Sub q()
    Dim DataValues As New Collection, i As Long, j As Integer, List As Worksheet
    Set List = ActiveWorkbook.Worksheets('Лист1') ' например
    i = 1 ' нач. строка
    j = 1 ' нач. столбец
    List.Columns(j).Interior.ColorIndex = xlNone
    Do
        If List.Cells(i, j) = '' Then Exit Do  ' до первой пустой строки
        On Error GoTo ErrorHandlerNotUniq
            DataValues.Add 0, CStr(List.Cells(i, j))
        On Error GoTo 0
        i = i + 1
    Loop
Exit Sub
ErrorHandlerNotUniq:
    List.Cells(i, j).Interior.ColorIndex = 35 ' зелёненький такой
    Resume Next
End Sub

Public Sub Color_Unique_Value()
Dim nomRow As New Collection
Dim mat As Range
 
lr = Application.Cells.SpecialCells(xlCellTypeLastCell).Row
 
Range('b2:b' & lr).AdvancedFilter Action:=xlFilterInPlace, unique:=True
ActiveCell.CurrentRegion.Select
nRow = Selection.Rows.Count
Selection.Interior.ColorIndex = 3'красим в любой цвет
ActiveSheet.ShowAllData 'показ. всё
For i = 1 To lr
    If Cells(i, 2).Interior.ColorIndex = xlNone Then
'           If n = 0 Then
           nomRow.Add i - 1
'            n = n + 1
           nomRow.Add i
'           Else: nomRow.Add i
'           End If
    End If
    Rows(i).Interior.ColorIndex = xlNone
    
Next
For Each nom In nomRow
    Rows(nom).Interior.ColorIndex = 6
Next
'MsgBox 'Найдено ' & nomRow.Count & ' дубликатов!'
End Sub