Подскажите процедуру для создания таблицы умножения

Public Sub tabl()
   Dim a As Integer
  Dim b As Integer
 Dim n As Integer
  Dim c1 As Integer
   Dim c2 As Integer
 
End Sub
Public Sub tabl1()
  a = Range("max_n")
 b = Range("min_n")
c1 = Int(Rnd * (b - a) + a)
 
End Sub
Public Sub tabl2()
a = Range("max_n")
b = Range("min_n")
c2 = Int(Rnd * (b - a) + a)
 
End Sub

Sub Multiplication_Table()
 
    'Буквы разные писать тонким перышком в тетрадь
    'Учат в школе, учат в школе, учат в школе.
    'Вычитать и умножать, малышей не обижать
    'Учат в школе, учат в школе, учат в школе.
 
    Const m = 9
    For i = 1 To m: For j = 1 To m
        Cells(i + 1, j) = i & " x " & j & " = " & i * j
    Next j, i
    '-----------
    With Range(Cells(2, 1), Cells(1 + m, m))
        .Interior.ColorIndex = 37
        For xl = 7 To 12: .Borders(xl).LineStyle = xlContinuous: Next
        .HorizontalAlignment = xlCenter
    End With
    
    With Range(Cells(1, 1), Cells(1, m))
        .Merge
        .Value = "Таблица умножения"
        .Interior.ColorIndex = 6
        For xl = 7 To 10: .Borders(xl).LineStyle = xlContinuous: Next
        .HorizontalAlignment = xlCenter
    End With
 
End Sub