vba 把单元格值赋给数组并由数组写入单元格

Sub 把单元格值赋给数组()
 Dim ary()
 Dim i, j, k, rowall, columnall, rownum As Integer
 rownum = InputBox("输入标题行所占行数")
 rowall = Cells(Rows.Count, 1).End(xlUp).Row
 columnall = Cells(1, Columns.Count).End(xlToLeft).Column
 k = WorksheetFunction.Count(Range(Cells(1, 1), Cells(rowall, 1)))
 ReDim ary(k - 1)
 For i = 0 To k - 1
    If Cells(i + 1, 1) <> "" Then
       ary(i) = Range(Cells(i + 1, 1), Cells(i + 1, columnall))
    End If
 Next
 Worksheets.Add after:=Sheets(ActiveSheet.Name)
 ActiveSheet.Name = "汇总表"
 For i = 0 To k - 1
   ' Range(Cells(i + 1, 1), Cells(i + 1, columall)) = ary(i)
 Next
End Sub

这是一个半成品，有内容错误，暂时用于记录，我想把多维维数组中的一组数赋给单元格，看来直接引用多维数组的行标是不行的，难道只能一个一个的赋值，ary，测试可知是一个3维数组