Сумма столбцов в таблице умножения - VBA

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

Есть код, который выводит таблицу умножения, дали задание, чтобы под каждым столбцом посчитали его сумму, код у меня может и примитивный, но подскажите куда вписать код суммы, я уже всю голову сломал, или можно сделать ещё 1 циклом?

                    Листинг программы
                
 
                        
                          
                    
Sub Form_Load()
 
Dim i As Integer
Dim j, k As Integer
Dim N As Variant
Dim A(1 To 99, 1 To 99) As Integer
 
metka1: N = InputBox("ГђГ*Г§Г¬ГҐГ°Г*Г®Г±ГІГј Г¬Г*ГІГ°ГЁГ¶Г»")
Cells(1, 1) = "Г’Г*ГЎГ«ГЁГ¶Г* ГіГ¬Г*Г®Г¦ГҐГ*ГЁГї:"
If IsNumeric(N) = False Then
MsgBox ("Г‚ГўГҐГ¤ГҐГ*Г® Г*ГҐ Г·ГЁГ±Г«Г®, ГўГўГҐГ¤ГЁГІГҐ Г·ГЁГ±Г«Г®")
GoTo metka1
Else
If N <= 0 Then
MsgBox ("Г‚ГўГҐГ¤ГҐГ*Г® Г·ГЁГ±Г«Г® Г¬ГҐГ*ГјГёГҐ 0 ГЁГ«ГЁ Г°Г*ГўГ*Г® 0, ГўГўГҐГ¤ГЁГІГҐ Г·ГЁГ±Г«Г® ГЎГ®Г«ГјГёГҐГҐ 0")
GoTo metka1
Else
k = N
Range(Cells(2, 1), Cells(99, 99)).ClearContents
For i = 1 To k
  For j = 1 To k
    A(i, j) = i * j
  Next j
Next i
Range(Cells(2, 1), Cells(1 + k, k)) = A
End If
End If
End Sub

Решение задачи: «Сумма столбцов в таблице умножения»

textual
                            Листинг программы 
                        
 
                        
                          
                    
Sub Form_Load()
 
Dim i As Integer, S#
Dim j%, k As Integer
Dim N As Variant
Dim A(1 To 99, 1 To 99) As Integer
 
Do
If N <> "" Then MsgBox "error"
N = InputBox("Введите положительное число", "ВВОД ДАННЫХ")
Loop While IsNumeric(N) = False Or N <= 0
 
k = N
Range(Cells(2, 1), Cells(99, 99)).ClearContents
 
For i = 1 To k
  For j = 1 To k
    A(j, i) = i * j
    S = S + A(j, i)
  Next j
A(j, i) = S: S = 0
Next i
 
Range(Cells(2, 1), Cells(2 + k, k)) = A
 
End Sub