Поиск и копирование по смежной ячейке

[lapin9126]

Здравствуйте.
Помогите подправить макрос, работа которого заключается в следующем: найти в столбце "B" все ячейки, содержащие текст "DTMF-In", скопировать значение из соседней ячейки в этой же строке в столбце "А" и вставить на лист "якоря" в этой же книге.

Код Выделить Развернуть

Sub DTMF_In()
    Dim w As Range
     Set w = [c:c].Find("DTMF-In", , xlValues, xlPart)
        If Not w Is Nothing Then Range(w, w.Offset(1)).Copy Worksheets("якоря").Range("A4")
End Sub

[Pelena]

Подправить? А если использовать другой подход?

Код Выделить Развернуть

Sub Afilter()
    Sheets("якоря").[a1].CurrentRegion.ClearContents
    With Sheets("Экспорт плейлиста").UsedRange
        .AutoFilter 2, "*DTMF-In*"
        .Columns(1).Copy Sheets("якоря").Range("A1")
        .Parent.AutoFilterMode = 0
    End With
End Sub

[lapin9126]

Вообще супер. Огромное спасибо.

А без излишнего цитирования вообще супер-суперовее [МОДЕРАТОР]