Заполнение динамического массива - VBA

Формулировка задачи:

Коллеги, помогите пожалуйста. В строке 3 находятся данные. Пытаюсь заполнить массив начиная со второго столбца и до конца, но запоминается только ячейка cells(3,2).

sub Заполнить()
    dim Пер() as variant
    Пер=range(cells(3,2),cells(3,columns.count).end(xlToLeft)).value
end sub

Решение задачи: «Заполнение динамического массива»

textual
                            Листинг программы 
                        
                            MsgBox UBound(Пер, 1), , "строк"
MsgBox UBound(Пер, 2), , "столбцов"