Среднее арифметическое - VBA/Excel

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

Составил скажем так мини программку, которая в массиве считает среднее арифметическое чисел. Но вот беда, нужно составить блок-схему к программе(алгоритм, со всеми блоками типа начало, конец, решение и т.п) Заранее спасибо. (надеюсь в тему написал)

Private Sub CommandButton2_Click()
Dim i As Integer, j As Integer
Dim A As Range
Dim Ssr As Double, s As Double, k As Integer
Set A = Selection
    A.Activate
      s = 0
      k = 0
For i = 1 To A.Rows.Count
For j = 1 To A.Columns.Count
    If CInt(A(i, j)) = CDbl(A(i, j)) And A(i, j) <> 0 Then
    If A(i, j) Mod 2 = 0 Then
    s = s + A(i, j)
    k = k + 1
    End If
    End If
Next j
Next i
If k = 0 Then
Exit Sub
End If
Ssr = s / k
Cells(2, 10) = "Среднее арифметическое = " & Ssr
End Sub

Решение задачи: «Среднее арифметическое»

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

                            Private Sub CommandButton2_Click()
    Dim i&, j&, v, w
    On Error Resume Next
    Set w = Application.InputBox("Введите диапазон", Type:=8)
    If w Is Nothing Then Exit Sub
    '
    'Заносим разные значения в указанный диапазон
    '
    Randomize
    For i = 1 To w.Rows.Count: For j = 1 To w.Columns.Count
        w.Cells(i, j) = Rnd * 9 \ 1
    Next j, i
    
    
    'Вычисляем средне-арифметическое каждого второго элемента в диапазоне
    '
    i = 0: j = 0
    For Each v In w
        If i Mod 2 = 0 Then
            j = j + v
        End If
        i = i + 1
    Next
    
    MsgBox "Средне-арифметическое каждого второго эл = " & j / (i / 2)
    
End Sub
                        