Построчное добавление в ListBox

[nikolai_P]

Добрый день!
Есть массив данных из 4 столбцов:
-станция отпр (столбец 5 листа (sh))
-Отправитель (ст.7)
-станция пол (ст.13)
-Получатель (ст.14)
Задача: добавить уникальные значения в ListBox после применения фильтра по столбцу 1 или 3 (выбрана одна станция).

Пробовал использовать динамический массив, увеличивая количество строк в нем и внося в последнюю добавляемое значение, но ничего не вышло. Может можно как-то построчно добавлять данные в ListBox?

On Error Goto Ne
CurSt = "Огарево"
j=0
    For i = 2 To R ' R - количество строк на листе sh
          If sh.Cells(i, 5) = CurSt Then
                coll.Add CurSt & sh.Cells(i, 7) & sh.Cells(i, 13) & sh.Cells(i, 14), _
                CurSt & sh.Cells(i, 7) & sh.Cells(i, 13) & sh.Cells(i, 14)
                Redim ListAr(0 To j, 0 to 3)
                ListAr(0, 1) sh.Cells(i, 5)
                ListAr(0, 1) = sh.Cells(i, 7)
                ListAr(0, 2) = sh.Cells(i, 13)
                ListAr(0, 3) = sh.Cells(i, 14)
                j = j + 1
            End If
Ne:
    Next
ListBox.List = ListAr