Sub aaa()
Dim m As Integer, n As Integer
m = InputBox("Введите число строк в матрице")
n = InputBox("Введите число столбцов в матрице")
ReDim a(1 To m, 1 To n) As Variant
' Массив создан, теперь его надо заполнить
' Ниже - вариант заполнения случайными числами
Randomize Timer
For i = 1 To m
For j = 1 To n
a(i, j) = 51 * Rnd() - 25
Next j
Next i
' Собственно, вывод массива на рабочий лист
Range(Cells(1, 1), Cells(m, n)) = a
End Sub