Excel vba resize function on filtered selected cell wrong

Question

I have a simple function, which resize dictionary to range

ThisWorkbook.Worksheets("Sheet1").Range("K10").Resize(DU_Result.Count, UBound(DU_Result.Items(1))) = Application.Transpose(Application.Transpose(DU_Result.Items))

destination range table is not filtered, result (ok):

destination range table is filtered order without line breaks (1,2,3,4,5,6,7,8), result (ok):

Problem appear when destination range table is filtered order with line breaks (1,2,,,5,6,,8), result (BAD):

expected

So why this happens and how to fix?