зменить диапазон ячеек, через условия справочника

[SkyWay]

Sub test()
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)
    Set dic = CreateObject("Scripting.Dictionary")
    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 dic.exists(X.Value) Then
        X.Interior.ColorIndex = 3
    Else
        X.Interior.ColorIndex = 6
        dic.Item(X.Value) = 0
    End If
    Next
End Sub

В данном коде уникальные при уникальном значение, ячейка помечается жёлтым цветом, всё повторяющиеся красным.

Дальше должен идти код, по циклу, который будет удалять в строке диапазон от 1 стоблца до 10, при условии если ячейка закрашена красным.
Сообразил до что то типа этого:

For Each Z In ActiveSheet.AutoFilter.Range.Offset(1, 0).Resize(ActiveSheet.AutoFilter.Range.Rows.Count - 1, ActiveSheet.AutoFilter.Range.Columns.Count).Columns(10).SpecialCells(xlCellTypeVisible)
    If Z.Interior.ColorIndex = 3 Then .......
        Next

Вот что после then написать не знаю( что не пробовал ерунда выходит(
Как правильно записать?

[RAN.]

Вот уж воистину, выкрасить и выбросить!
А не крашеные выбросить не судьба?