Speed Up ListBox Getting Updated Filled Very Slow

[snb]

Why don't you post a sample workbook ???

[Tony]

Why don't you post a sample workbook ???

See Example.xlsm

When i use

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

it works but then the data wil be placed in 1 column

When i use

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

it places the content in 6 column on 1 row what i need but then the cell propertys will not be used

[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.