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