use this code, this works much faster.
For _Rows = 0 To _DSclip.Tables(T).Rows.Count - 1
_xlSheet1.Range("a" & XlRow).Offset(_Rows).Resize(1, _Cols).Value = _DSclip.Tables(T).Rows(_Rows).ItemArray()
Next
It writes data row by row.
Please mark as answer if worked.