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

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