Установлен фильтер
Set w = Worksheets("Береж")
w.Cells.AutoFilter Field:= 1 , Criteria1:= _
UserForm1.ComboBox2.Value

 1 .Как определить количество выбранных строк  в листе ?
 2 .Как их увидеть ? ( на каждом столбце стоит кнопка)
 3 .Как оменить результат фильтрации,т.е. Лист открыть?