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

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

Подскажите пожалуйста процедуру для создания таблицы умножения в VBA,и чтобы msgbox выдавал кол-во правельных и неправильных ответов.И программа запускается с помощью кнопки - умножение,которые находятся на рабочем столе Exel.

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

Решение задачи: «Подскажите процедуру для создания таблицы умножения»

textual
                            Листинг программы 
                        

                            'Option Explicit
 
Sub Multiplication_Table()
 
    'Буквы разные писать тонким перышком в тетрадь
    'Учат в школе, учат в школе, учат в школе.
    'Вычитать и умножать, малышей не обижать
    'Учат в школе, учат в школе, учат в школе.
 
    Const m = 9
    
    For i = 1 To m
        Cells(2, i) = i
        Cells(i + 1, 1) = i
    Next
    
    For i = 1 To m: For j = 1 To m
        Cells(i + 1, 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(3, 2), Cells(1 + m, m))
        .Interior.ColorIndex = 35
    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
                        