Добрый день!
помогите пожалуйста, понять, в чем проблема, не могу скопировать данные из таблицы в массив
нужно скопировать только отфильтрованые данные
когда ставлю фильтр, то копируется либо одна либо две строки (

делаю следующим образом:

   Range("B3").Select
   Selection.End(xlDown).Select
   ArrH = Range("B3:F" & ActiveCell.Row).SpecialCells(xlCellTypeVisible)