Получение нескольких вариантов с одинаковым размером строки, с разным размером столбца, в один БОЛЬШОЙ диапазон

Question

, поэтому у меня есть 6 вариантов по 100 строк, но разное количество столбцов. Я хочу объединить все мои варианты в один диапазон - добавляя варианты вертикально вниз, один за другим, оставляя пробел между вариантами, когда они попадают в мой диапазон. Я не хочу добавлять его в диапазон рядом.

Я перехватываю все варианты в одном варианте, а затем извлекаю его - это дает мне ошибку несоответствия типов. «Если есть лучший способ сделать это, пожалуйста, дайте мне знать

vntAllvariants = Application.index( _
   Union(vntData1, vntData2,vntData3,vntData4,vntData5,vntData6), _
   Evaluate("row(1:" & vntData1.Rows.Count & ")"), _
   1, _
   Array(1, 2,3,4,5,6))


Range("A4:EE1000").value = dat4

Несоответствие типов

Пример: пример:

vnt1 = 
1,2,3,4
5,6,7,8

vnt2= 
2,3,4,5
4,6,7,8

range("A1:D5") =
1,2,3,4
5,6,7,8

2,3,4,5
4,6,7,8

''''''''''''''''''''''''''''''''''''''''''''''''''
Option Explicit

Sub yougotthis()
Dim vnt1(1 To 2, 1 To 4) As Variant
Set vnt1 = [{1, 2, 3, 4;1, 2, 3, 4}]

Dim vnt2(1 To 2, 1 To 3) As Variant
Set vnt2 = [{1,2,3;1,2,3}]

Dim vnt3(1 To 2, 1 To 5) As Variant
Set vnt3 = [{1,2,3,4,5;1,2,3,4,5}]

vntAllVariants As Variant

vntAllVariants = Application.index( _
   Union(vntData1, vntData2, vntData3, vntData4, vntData5, vntData6), _
   Evaluate("row(1:" & vntData1.Rows.Count & ")"), _
   1, _
   Array(1, 2, 3, 4, 5, 6))


Range("A4:EE1000").value = dat4



'output
'1,2,3,4
'1,2,3,4

'1,2,3
'1,2,3

'1,2,3,4,5
'1,2,3,4,5


End Sub