Sub a()Dim arrn = [a65536].End(3).Rowarr = [a1].Resize(n)End Sub
Dim Arrarr=range("A1:A10")
Sub aa() Dim a() a = [a1:a10].Value MsgBox a(1, 1)End Sub