IIомогите сделать с использованием подпрограмм

Sub P1()
Dim A(1 To 10, 1 To 10) As Integer
Dim B(1 To 10, 1 To 10) As Integer
Dim i As Integer, j As Integer
Dim MaxКол As Integer, Кол As Integer
Dim MaxСтрока As Integer
Dim Флаг As Boolean
For i = 1 To UBound(A, 1) Step 1
    For j = 1 To UBound(A, 2) Step 1
        A(i, j) = Int((100 - (-100) + 1) * Rnd + (-100))
        Worksheets(1).Cells(i, j).Value = A(i, j)
    Next j
Next i
For i = 1 To UBound(B, 1) Step 1
    For j = 1 To UBound(B, 2) Step 1
        B(i, j) = Int((100 - (-100) + 1) * Rnd + (-100))
        Worksheets(2).Cells(i, j).Value = B(i, j)
    Next j
Next i
MaxСтрока = 1
For i = 1 To UBound(A, 1) Step 1
    For j = 1 To UBound(A, 2) Step 1
        If A(i, j) < A(1, 1) Then
            Кол = Кол + 1
        End If
    Next j
    If Кол > MaxКол Then
        MaxКол = Кол
        MaxСтрока = i
    End If
    Кол = 0
Next i
For i = 1 To UBound(B, 1) Step 1
    For j = 1 To UBound(B, 2) Step 1
        If B(i, j) < A(1, 1) Then
            Кол = Кол + 1
        End If
    Next j
    If Кол > MaxКол Then
        Флаг = True
        MaxКол = Кол
        MaxСтрока = i
    End If
    Кол = 0
Next i
If Флаг = False Then
    MsgBox "Наименьшее количество элементов, больших A(1,1), находится в массиве A в строке " & MaxСтрока
Else
    MsgBox "Наименьшее количество элементов, больших A(1,1), находится в массиве B в строке " & MaxСтрока
End If
End Sub