Как определить адресс видимой ячейки по применения автофильтра?

[Казанский]

Попробуйте

Selection.AutoFilter Field:=2, Criteria1:="=Вася", Operator:=xlOr _
, Criteria2:="=Петя"
With ActiveSheet.AutoFilter.Range
    .Cells(2, 1).Resize(.Rows.Count - 1).SpecialCells(xlCellTypeVisible) = "Друг"
End With

Можно без "=":

... Criteria1:="Вася", Operator:=xlOr, Criteria2:="Петя"

[CooperNick]

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

Побочный результат - вставляет константу и в ячейку после последней отфильтрованной строки, но мне это не мешает.

[CooperNick]

Если в поле, по которому отбирает автофильтр, нет ни Пети, ни Васи - макрос вылетает с ошибкой.

Как проверить, не пуст ли отбор?

Спасибо

[Казанский]

Примерно так:

Selection.AutoFilter Field:=2, Criteria1:="Вася", Operator:=xlOr _
, Criteria2:="Петя"
With ActiveSheet.AutoFilter.Range
    On Error Resume Next
    .Cells(2, 1).Resize(.Rows.Count - 1).SpecialCells(xlCellTypeVisible) = "Друг"
End With
If Err Then Err.Clear: MsgBox "Отбор пуст"

[CooperNick]

И снова спасибо!