Sub test1()

     //変数の定義

     Dim a() As Integer, iRow As Long, i As Integer

     //非空白のセールまでの行を取得

     iRow = Cells(Rows.Count, "A").End(xlUp).Row

     //動的な配列を作成

     ReDim a(iRow - )

     //繰り返して、セールの値を配列にセット

     For i =  To UBound(a)

         a(i - ) = Range("A" & i)

     Next

 End Sub

 Sub test()

   //配列の定義、形は未定にする

   Dim a() As Variant

   //「A」列のA3セールから最後行（非空白）までの値は配列にセットする

   a() = Range("A3:A" & Range("A65536").End(xlUp).Row)

 End Sub