Два одномерных массива записать в разные столбцы в excel

Sub VivodMassiva(myarray as string, myarray1 as string) ' или числа, смотря что у тебя
 
for i to len(myarray())
  cells (1, i) = myarray(i)
next i
 
for j to len(myarray1())
  cells (2, j) = myarray1(j)
next j
 
End sub

dim myarray as string
?len(myarray())
?myarray(i)

Private Sub CommandButton1_Click()
 
Dim myarray() As String
Dim myarray1() As String
 
ReDim myarray(10)
ReDim myarray1(10)
For i = 0 To 10
myarray(i) = i ' выбрал динам. массив, чтобы наверняка все случаи
myarray1(i) = 90 + i ' заполняем случайными числами
Next i
vivod myarray, myarray1
 
End Sub
 
Private Sub vivod(mass() As String, mass1() As String)
 
For i = LBound(mass()) To UBound(mass()) ' с нижней по верхнюю границы
  Cells(i + 1, 1) = mass(i) ' i+1 ибо нижняя граница = 0
Next i
 
For j = LBound(mass1()) To UBound(mass1())
  Cells(j + 1, 2).Value = mass1(j)
Next j
 
End Sub

Sub tt()
    Dim arr
    arr = Array(1, 2, 3, 4)
    Range("a1").Resize(UBound(arr) + 1, 1) = Application.Transpose(arr)
End Sub