Найти сумму положительных элементов, лежащие выше главной диагонали матрицы - VBA

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

Нуждаюсь в помощи, очень прошу помочь, нужно создать в UserForm Дана матрица размером n * n. Найти сумму положительных элементов, лежащие выше главной диагонали.

2. Дана матрица размером n * n и целое число p. сделать циклическую перестановку строк матрицы вперед на р шагов.

Решение задачи: «Найти сумму положительных элементов, лежащие выше главной диагонали матрицы»

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

                            Sub main()
Dim n As Long
Dim Matrix() As Double
Dim i As Long, j As Long
Dim sum As Double
n = InputBox("укажите ,сколько строк и столбцов должно быть в матрице:")
ReDim Matrix(1 To n, 1 To n)
For i = 1 To n
For j = 1 To n
Matrix(i, j) = Int(21 * Rnd - 10)
Next j
Next i
Cells.Clear
For i = 1 To n
For j = 1 To n
Cells(i, j) = Matrix(i, j)
Next j
Next i
For i = 1 To n - 1
For j = i + 1 To n
If Matrix(i, j) > 0 Then
sum = sum + Matrix(i, j)
End If
Next j
Next i
MsgBox "сумма=" & sum
End Sub
                        