Изменение ячейки в цикле по отфильтрованному списку.

[AlisaLisa]

Добрый форумчанины, помогите пожалуйста. Вопрос жизни и смерти , практически в буквальном смысле.....
Есть вот такой код:

pos = ActiveSheet.AutoFilter.Range.Offset(1, 0).Resize(ActiveSheet.AutoFilter.Range.Rows.Count - 1, ActiveSheet.AutoFilter.Range.Columns.Count).Columns(10).SpecialCells(xlCellTypeVisible).Cells(1)

    For Each x In ActiveSheet.AutoFilter.Range.Offset(1, 0).Resize(ActiveSheet.AutoFilter.Range.Rows.Count - 1, ActiveSheet.AutoFilter.Range.Columns.Count).Columns(10).SpecialCells(xlCellTypeVisible)
        If pos = x And Count = 0 Then
            Cells(x, 10).Interior.ColorIndex = 6
            Count = 1
        Else
            If pos = x And Count <> 0 Then Cells(x, 10).Interior.ColorIndex = 3
            
        
    End If
    Next

Суть задачи для которой этот код написан. Есть отфильтрованный список, в нём есть столбец со значениями, например 2,2,3,4,2,1,5,6,4,4.
Задача в том чтобы оставить только одну уникальную запись по данному опираясь на данный столбец, то есть чтобы получилось 2,3,4,1,5,6.
По моему придуманному алгоритму, все уникальные ячейки с уникальным значением пометить жёлтым, а остальные красным цветом, вот собственно разъяснение кода и суть проблемы"

В первом цикле, идёт перебор значений по одному столбцу в отфильтрованом списке, не считая первой строки, шапки.
Дальше условия на совпадение тоесть если первый элеменn в этом столбце равен самому себе, то эта ячейка закрашивается жёлтым и счётчик увеличивается на 1.
Если оно выполняется то то ячейка должна закраситься жёлтым цветом - вот именно в этом месте,
в этой строчке

Cells(x, 10).Interior.ColorIndex = 6

у меня проблема(((
Как правильно записать в данном случае, а то у меня получается либо он первый элемент который вообще во всём списке вначале идёт, либо вообще всю страницу окрашивает(