Нужно разбить программу на подпрограммы

Private Sub Rozrahunkova()
Dim n As Integer, m As Integer, i As Byte, j As Byte, S() As Integer
 
n = InputBox("Задайте кількість рядків")
 
m = InputBox("Задайте кількість стовбців")
ReDim S(n, m)
 
Cells.Clear
For i = 1 To n
  For j = 1 To m
    
    S(i, j) = Int(Rnd * 50 - 50)
    
    Cells(i + 1, j) = S(i, j)
Next j
Next i
kp = 0
For j = 1 To m
  kps = 0
 
 For i = 1 To n
    
    Min = S(i, j): ind = i
     
     For k = i + 1 To n
      If Min > S(k, j) Then
         Min = S(k, j): ind = k
      End If
    Next k
    
    If ind > i Then
       kps = kps + 1
       tmp = S(ind, j): S(ind, j) = S(i, j): S(i, j) = tmp
    End If
    
    Cells(i + n + 3, j) = S(i, j)
  Next i
 
    Cells(2 * (n + 2) + 2, j) = kps
    kp = kp + kps
Next j
 
Cells(2 * (n + 2) + 5, 1) = kp
 
Cells(2 * (n + 2) + 1, 1) = "Кількість перестановок для стовбчиків"
Cells(2 * (n + 2) + 4, 1) = "Сумарна кількість перестановок у матриці"
Cells(1, 1) = "Початкова матриця"
Cells(n + 3, 1) = "Змінена матриця"
 
End Sub

Public n&, m&, S&()
Private Sub Rozrahunkova()
    Dim i As Byte, j As Byte
    Dim kp&, kps&, Min&, ind&, k&, tmp&
    Call vvod
    kp = 0
    For j = 1 To m
        kps = 0
        For i = 1 To n
            Min = S(i, j): ind = i
            For k = i + 1 To n
                If Min > S(k, j) Then
                    Min = S(k, j): ind = k
                End If
            Next k
            If ind > i Then
                kps = kps + 1
                tmp = S(ind, j): S(ind, j) = S(i, j): S(i, j) = tmp
            End If
            Cells(i + n + 3, j) = S(i, j)
        Next i
        Cells(2 * (n + 2) + 2, j) = kps
        kp = kp + kps
    Next j
    Cells(2 * (n + 2) + 5, 1) = kp
    Call zagol
End Sub
Sub vvod()
    Dim i&, j&
    n = InputBox("Задайте кількість рядків")
    m = InputBox("Задайте кількість стовбців")
    ReDim S(n, m)
    Cells.Clear
    For i = 1 To n
        For j = 1 To m
            S(i, j) = Int(Rnd * 50 - 50)
            Cells(i + 1, j) = S(i, j)
        Next j
    Next i
End Sub
Sub zagol()
    Cells(2 * (n + 2) + 1, 1) = "Кількість перестановок для стовбчиків"
    Cells(2 * (n + 2) + 4, 1) = "Сумарна кількість перестановок у матриці"
    Cells(1, 1) = "Початкова матриця"
    Cells(n + 3, 1) = "Змінена матриця"
End Sub