Запись в массив из столбца с начала активной ячейки

If Int(Cells(Row2, Col)) = Cells(Row2, Col) Then
          a(n) = Cells(Row2, Col) 
        End If

Dim arr()
arr = Range(ActiveCell, Cells(Rows.Count, ActiveCell.Column).End(xlUp)).Value

Dim Row2&, Col&, i&, endRow&, counter&, mArr()
   Row2=Activecell.row
   Col=Activecell.column
   counter=0
   for i=Row2 to endRow ' endRow - это номер _
                            последней нужной строки, которую Вы _
                            должны как-то определить, и который _
                            (здесь) должен удовлетворять _
                            условие endRow > Row2
      if cells(i,Col).value <> "" Then
         counter = counter + 1
         redim preserve mArr(counter)
         mArr(counter) = cells(i,Col).value
      End if
   next ' i

Col = ActiveCell.Column   'Номер активного столбца
Row = ActiveCell.Row      'Номер активной строки
N = 0
ReDim a(10) 
Do
  N = N + 1  
'При переходе к следующей десятке элементов массива A, расширя-ем
'его на 10 элементов, сохраняя предыдущие значения 
  If (N Mod 10) = 0 Then ReDim Preserve a(N + 10)
  a(N) = Cells(N, Col)
'Если в A(N) записано значение Empty (Пусто), то выходим из цикла
Loop While a(N) <> Empty

arr = Application.Transpose(Range(ActiveCell, Cells(Rows.Count, ActiveCell.Column).End(xlUp)))

Sub asdf()
Dim counter As Long, mArr()
Dim mRng As Range, currCell As Range
    With ActiveSheet
        Set mRng = Range(ActiveCell, _
            Cells(.UsedRange.Row - 1 + _
                    .UsedRange.Rows.Count, ActiveCell.Column)) ' _
                                          определили диапазон  с данными.
        Set mRng = mRng.SpecialCells(xlCellTypeConstants) ' _
                                         ПЕРЕопределили этот диапазон, _
                                         куда теперь входят только не пустые ячейки _
                                         (что б это проверить, напишите где-то _
                                           ниже mRng.Select) 
    End With
    ReDim mArr(mRng.Cells.Count) ' один раз определили размер массива
    counter = 0
        For Each currCell In mRng
            counter = counter + 1 ' счетчик для присвоения индекса _
                                                   члену массива.
            mArr(counter) = currCell.Value
        Next
End Sub