Problem fetching the collections Item child values ex: item1(1)

My requirement is to implement sumproduct formula using macro without workbook function

for that

1. I am first reading whole excel table data into collection.

i set range as the table including headers and add them into collection object coll_sheet

Set r1 = ThisWorkbook.Worksheets(SheetName).Range(TableName & "[#All]")

coll_sheet.Add r1.Value


test1.jpg

my collection has these items

2. Now my question is how to access Item1(1) and item1(2,1). Since i need check different conditions and remove those column that are not satisfying the conditions. To remove i require the index for these sub items or child item values.


Please help me out ana give some suggestions.