Разрыв связей ячеек заданного цвета

[MaxxVer]

Добрый день уважаемые форумчане! Прошу Вас написать небольшой макрос: в столбце A листа 3, в ячейках желтого цвета, находятся формулы со ссылками на лист 2, необходимо, при нажатии на кнопку "Зафиксировать", вставить значениями все желтые ячейки столбца, не затронув в этом столбце ячейки других цветов.

[kuklp]

Sub www()
    With ActiveSheet.UsedRange.Columns(1)
    .AutoFilter Field:=1, Criteria1:=RGB(255, _
        255, 153), Operator:=xlFilterCellColor
    .SpecialCells(12).Value = .SpecialCells(12).Value
    End With
    ActiveSheet.AutoFilterMode = 0
End Sub

[MaxxVer]

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

[kuklp]

Sub www()
    Dim r As Range
    With ActiveSheet.UsedRange.Columns(1)
        .AutoFilter Field:=1, Criteria1:=RGB(255, _
            255, 153), Operator:=xlFilterCellColor
        For Each r In .SpecialCells(12).Areas
            r.Value = r.Value
        Next
    End With
    ActiveSheet.AutoFilterMode = 0
End Sub

[MaxxVer]

Огромное спасибо!