Разработать подпрограмму

Sub lab43()
Dim n As Byte
Dim m As Byte
Dim k As Byte
Dim i As Byte, j As Byte
Dim h As Byte
Dim u As Integer
Dim mas() As Single
Dim knop As Byte
Dim sums As Integer
Dim temp As Integer
Dim c As Integer
On Error GoTo e
 
Range("A1:W30").Clear
q:
n = InputBox("Введите кол-во столбцов матрицы", "Ввод данных")
m = InputBox("Введите кол-во строк матрицы", "Ввод данных")
ReDim mas(1 To m, 1 To n)
 For i = 1 To m
    For j = 1 To n
 
        mas(i, j) = InputBox("введите " & j & " элемент " & i & " строки")
        Sheets("Лист1").Cells(i, j) = mas(i, j)
 
       Next j
       Next i
 For i = 1 To m
 maxs = maxs + mas(i, 1)
Next i
For i = 1 To m
temp = 0
For j = 1 To n
temp = temp + mas(i, j)
Next j
If temp > maxs Then maxs = temp
c = c + 1
Next i
k = 1
l = c
For j = 1 To n
  temp = mas(k, j)
  mas(k, j) = mas(l, j)
  mas(l, j) = temp
Next j
 
For i = 1 To m
For j = 1 To n
  Cells(i, j).Value = mas(i, j)
Next j
Next i
MsgBox (c)
e:
If Err = 9 Then
knop = MsgBox("Введенные данные неккоректны ", 4 + 16, "Ошибка")
  If knop = 6 Then
        Resume q
        Else
        Exit Sub
    End If
ElseIf Err = 13 Or Err = 6 Then
knop = MsgBox("Введенные данные неккоректны, Повторить?", 4 + 16, "Ошибка")
  If knop = 6 Then
        Resume
        Else
        Exit Sub
    End If
End If
 
End Sub