Добавление отфильтрованных значений в массив или коллекцию на основе другого столбца

Question

Я просто хочу отфильтровать свой диапазон в массив или коллекцию, чтобы я мог использовать это другое программное обеспечение.

Sub TestCollection()

Dim ListedCollection As Collection

Worksheets("Datasources").Activate
ListedColumnID = GetColumnIndexByHeader("ASSET_CLASS")
SecurityColumnID = GetColumnIndexByHeader("TXN_SEC_DESC")

lngLastRowDS = Worksheets("Datasources").Cells(Sheets("DataSources").Rows.Count, SecurityColumnID).End(xlUp).Row


    Set ListedArrary = New Collection

       For Each cell In Range(Worksheets("Datasources").Cells(2, SecurityColumnID), Worksheets("Datasources").Cells(lngLastRowDS, SecurityColumnID))

        If cell.Offset(0, 7).Value = "Listed" Then
            ListedCollection.Add cell.Value
            Else
            End If
    Next
    Debug.Print ListedCollection


End Sub

У меня просто возникают проблемы при добавлении в коллекцию, если в списке есть другой столбец. Я не могу манипулировать источником данных, если это возможно.

Приветствия