Low performance when adding values to a listobject in VBA

Question

I need to print a large amount of data to a listobject, and the function I have written works, but is extremely slow:

Public Sub PrintCollectionToTableByHeaderNam