Получение отфильтрованного списка

[MrDimain]

Здравствуйте, Форумчане!
Такая проблема.
Фильтрую данные в ListObject:

FilterTableList.DataBodyRange.AutoFilter Field:=1, Criteria1:=FilterStr, Operator:=xlFilterValues

В итоге, как мне получить, например, значения из первой колонки отсортированной таблицы?

Пробовал:

- FilterTableList.DataBodyRange
- FilterTableList.AutoFilter.Colunm.SpecialCells(xlCellTypeVisible)
- Range("TD_List[Марка]")

Пример таблицы:

Марка	k
TD1-5	2
TD1-9	22
TD1-30	1
TD1-47	2
TD1-51	91
TD1-55	13
TD1-89	1
TD1-93	54
TD1-97	2
TD1-108	1
TD1-110	1
TD1-114	17
TD1-118	1
TD1-135	1
TD1-156	1
TD1-177	1
TD1-257	1
TD1-349	1

FilterStr = "*4*"

На листе отображается(то что нужно):

Марка	k
TD1-47	2
TD1-114	17
TD1-349	1

А теперь как этот список из первого поля запихнуть в массив?

[Казанский]

Либо перебрать видимые ячейки

  With FilterTableList.ListColumns(1).DataBodyRange.SpecialCells(xlCellTypeVisible)
    ReDim arr(1 To .Count) As String
    For Each c In .Cells
      i = i + 1
      arr(i) = c.Value
    Next
  End With

либо расширенным фильтром отфильтровать в другое место и взять оттуда .Value