Не выводит максимальный элемент из матрицы - VBA

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

Взять матрицу M x N. Определить максимальный элемент каждой строки. Выделить их цветом. M=4, N=6.

Все вроде работает, но, почему-то не выводит в E6 и F6, куда выходит максимальный элемент.

                    Листинг программы
                
 
                        
                          
                    
Sub laba12()
'
' laba12 ГЊГ*ГЄГ°Г®Г±
' adasdas
'
Cells.Clear
Dim rng_1 As Range
Dim n As Byte
Dim m As Byte
Dim Max1 As Byte
n = InputBox("кол-во в высоту", , 4)
For i = 1 To n
m = InputBox("в ширину", , 6)
For j = 1 To m
Cells(i, j) = Int(Rnd * 100) + 1
Next
Next
For i = 1 To n
Set rng_1 = Range(Cells(1, i), Cells(n, i))
Max1 = Application.WorksheetFunction.Max(rng_1)
Cells(n + 1, i) = "="
Cells(n + 2, i) = Max1
Next i
End Sub

Решение задачи: «Не выводит максимальный элемент из матрицы»

textual
                            Листинг программы 
                        
 
                        
                          
                    
Sub laba12()
'
' laba12 ГЊГ*ГЄГ°Г®Г±
' adasdas
'
Cells.Clear
Dim rng_1 As Range
Dim n As Byte
Dim m As Byte
Dim Max1 As Byte
n = InputBox("кол-во в высоту", , 4)
m = InputBox("в ширину", , 6)
For i = 1 To n
For j = 1 To m
Cells(i, j) = Int(Rnd * 100) + 1
Next
Next
For i = 1 To m
Set rng_1 = Range(Cells(1, i), Cells(n, i))
Max1 = Application.WorksheetFunction.Max(rng_1)
Cells(n + 1, i) = "="
Cells(n + 2, i) = Max1
Next i
End Sub