Протягивание отфильтрованного диапазона вправо

[agregator]

Здравствуйте уважаемые программисты. Мне надо макросом протягнуть (скопировать) отфильтрованный диапазон вправо, при этом неотфильтрованные ячейки правого диапазона не должны измениться. При использовании

Sub Протянуть2()
    Range("A2:A25").Select
    Selection.AutoFill Destination:=Range("A2:B25")
End Sub

неотфильтрованные ячейки B2:B25 тоже изменяются. Selection.FillRight - не работает Debug

[agregator]

Ответ нашёл здесь.