Dim CArray() As Varian
redim carray (ubound (ARRAY1())+ubound(array2())+ ubound(array3())+...-12
For c1 = 0 To UBound(array1()) -
CArray(c1) = array1(c1
Next c
For c2 = c1 + 1 To c1 + UBound(array2()
caray(c2) = array2(c2 - (c1 + 1)
Next c
For c3 = c2 + 1 To c2 + UBound(array3()
CArray(c3) = array3(c3 - (c2 + 1)
Next c
...