Speed Up ListBox Getting Updated Filled Very Slow

[Tony]

Solved the problem using

.Cells(Rx1, 3).Resize(, 6).Value = Application.Transpose(var)

one small change...but don't know why that function application.transpose does the trick.