Создать код заполнения массива из диапазона Excel Макрос VBA

Когда в коде нужно заполнить массив вида:
Dim a2() as Variant
a2(1, 1) = 11
a2(1, 2) = 22
a2(1, 3) = 31
a2(1, 4) = 41
a2(2, 1) = 11
a2(2, 2) = 22
a2(2, 3) = 32
a2(2, 4) = 42
a2(3, 1) = 11
a2(3, 2) = 22
a2(3, 3) = 32
a2(3, 4) = 43
a2(4, 1) = 11
a2(4, 2) = 22
a2(4, 3) = 33
a2(4, 4) = 43
Например, для тестов.
Лучше заполнить ячейки на листе и натравить на диапазон макрос

[qemdtbl]

Писать код для генерацыи в екселе я считаю извращением