Может кто составить блок схему по этому коду?

[nicroma]

Может кто составить блок схему по этому коду(VBA)

Sub zzz()

 
  
    Dim myArray(1 To 260, 1 To 240) As Single
        
    Dim myNumber As Single
    Dim i As Long, j As Long, n As Long
    
    
    
    If ActiveCell.Value = "" Then MsgBox "!!! Ви  обрали порожню комірку ": GoTo metka
    myNumber = Val(ActiveCell.Value)
    
    
        For i = 1 To UBound(myArray, 1) Step 1
        For j = 1 To UBound(myArray, 2) Step 1
            myArray(i, j) = Val(Cells(i, j).Value)
            Cells(i, j).Interior.Color = vbWhite
        Next j
        Next i
    
    
    For i = 220 To 700 Step 1
                Cells(i, 1).Value = ""
                Cells(i, 2).Value = ""
                Cells(i, 3).Value = ""
    Next i
    
    n = 219
    For i = 1 To UBound(myArray, 1) Step 1
        For j = 1 To UBound(myArray, 2) Step 1
           If myArray(i, j) = myNumber Then
             n = n + 1
                Cells(n, 1).Value = myArray(i, j)
                Cells(n, 2).Value = myArray(1, j)
                Cells(n, 3).Value = myArray(i, 1)
               
                Cells(i, j).Interior.Color = vbRed
            
            End If
        Next j
    Next i
       
metka:
    
End Sub

Пожалуйста, оформляйте Ваш код согласно правилам.