Cycle through all records in a table listobject

Hi. I have a table listobject in my spreadsheet called TableSource. It has six columns called SheetNum, Name, Table, Depot, Area, and FieldSource.

In my VBA I have a type class

Please Login or Register  to view this content.

Is there an easy way to run a sub that will cycle through all rows in TableSource and add the data to an array of the ChosenData type.

This is what I have so far:

Please Login or Register  to view this content.

The table starts on B3, and only has 3 records. But if I wanted to add a 4th or more, I'd have to edit the code. What's the best way to add all rows to my array type so I won't have to worry about changing the code