Операция сглаживания матрицы

Private Sub соседи_Click()
   Dim m%, n%, i%, j%, matr() As Integer, matr2() As Double, sum As Double
   Dim r%, l%, u%, d%, z As Byte
   
   Cells.ClearFormats
   Cells.ClearContents
   
      m = InputBox("Введите число строк", , 10): m = Val(m)
      n = InputBox("Введите число столбцов", , 10): n = Val(n)
 
   ReDim matr(1 To m, 1 To n): ReDim matr2(1 To m, 1 To n)
 
   For i = 1 To m
      For j = 1 To n
         Cells(i, j) = Int(10 - 10 * Rnd(10))
         matr(i, j) = Cells(i, j)
      Next j
   Next i
'-----------------------------------------------------------------
   On Error Resume Next
   For i = 1 To m
      For j = 1 To n
         z = 4
                  u = matr(i - 1, j)
 
         l = matr(i, j - 1): r = matr(i, j + 1)
 
                  d = matr(i + 1, j)
   
         Select Case i
         Case 1   'для первой строки нет верхнего соседа
            u = 0
            z = z - 1
         Case m   'для последней строки нет нижнего соседа
            d = 0
            z = z - 1
         End Select
 
         Select Case j
         Case 1   'для первого столбца нет левого соседа
            l = 0
            z = z - 1
         Case n   'для последнего столбца нет правого соседа
            r = 0
            z = z - 1
         End Select
 
         matr2(i, j) = (r + l + u + d) / z
      Next j
   Next i
 
   Range(Cells(m + 3, 1), Cells(2 * m + 2, n)) = matr2
   
   For j = 1 To Application.Min(m, n)
      For i = j + 1 To m
         sum = sum + Abs(matr2(i, j))
         Cells(m + 3, 1).Offset(i - 1, j - 1).Font.Bold = True
      Next i
   Next j
   Cells(2 * m + 3, n + 1) = sum
End Sub