Найти номер столбца массива - VB

Sub ObLivion2346()
    Dim a()
    Dim i&, j&, p&, Max%, Min%, q#
    Dim s%, n%, m%
'--------------------
    ActiveSheet.UsedRange.EntireRow.Delete
    ReDim a(1 To 7, 1 To 8)
    n = 7: m = 8
    Randomize
    For i = 1 To UBound(a)
        For j = 1 To UBound(a, 2)
            a(i, j) = Int(50 * Rnd - 25)
        Next
    Next
    Cells(1, 1).Resize(UBound(a), UBound(a, 2)) = a
    For j = 1 To UBound(a, 2)
        For i = 1 To UBound(a)
            If a(i, j) < 0 Then p = p + 1
            If a(i, j) < 0 Then s = s + a(i, j)
        Next
        With Cells(UBound(a) + 2, j)
            .Value = s
            .Font.Bold = True
            .Font.Italic = True
        End With
        With Cells(UBound(a) + 3, j)
            .Value = p
            .Font.Color = vbRed
        End With
        s = 0
        p = 0
    Next
    Max = Cells(10, 1): Min = Abs(Cells(10, 2)): q = Min / Max
    For j = 1 To 8
       If Cells(10, j) >= Max And Cells(10, j) > Min And Cells(10, j) > q Then
       Max = Cells(10, j)
       Cells(10, j).Interior.Color = vbYellow
       End If
    Next
       
    Beep
End Sub