Как посчитать сколько всего возможно вариантов в матрице?

Option Explicit
 
Sub Перебор()
    Dim arr As Variant
    ReDim arr(1 To 5)
    With ActiveSheet
        arr(1) = .Range("A2").Resize(9, 3)
        arr(2) = .Range("E2").Resize(8, 3)
        arr(3) = .Range("I2").Resize(9, 3)
        arr(4) = .Range("M2").Resize(8, 3)
        arr(5) = .Range("Q2").Resize(5, 3)
    End With
     
    Dim u As Long
    Dim x As Integer
    u = 1
    Dim v As Variant
    For Each v In arr
        u = u * (UBound(v, 1) - 1)
        x = x + UBound(v, 2)
    Next
    If u > 0 Then
        Dim brr As Variant
        ReDim brr(1 To u + 1, 1 To x)
     
        Dim y1 As Long
        Dim y2 As Long
        Dim y3 As Long
        Dim y4 As Long
        Dim y5 As Long
         
        For x = 1 To UBound(brr, 2)
            brr(1, x) = x
        Next
        u = 1
        For y1 = 2 To UBound(arr(1), 1)
        For y2 = 2 To UBound(arr(2), 1)
        For y3 = 2 To UBound(arr(3), 1)
        For y4 = 2 To UBound(arr(4), 1)
        For y5 = 2 To UBound(arr(5), 1)
            u = u + 1
            For x = 1 To UBound(arr(1), 2)
                brr(u, arr(1)(1, x)) = arr(1)(y1, x)
                brr(u, arr(2)(1, x)) = arr(2)(y2, x)
                brr(u, arr(3)(1, x)) = arr(3)(y3, x)
                brr(u, arr(4)(1, x)) = arr(4)(y4, x)
                brr(u, arr(5)(1, x)) = arr(5)(y5, x)
            Next
        Next
        Next
        Next
        Next
        Next
         
        With Workbooks.Add(1)
            With .Sheets(1)
                With .Cells(1, 1).Resize(UBound(brr, 1), UBound(brr, 2))
                    .Value = brr
                End With
            End With
            .Saved = True
        End With
    End If
End Sub