Найти среднее положительных элементов матрицы с(8,6) программирование на языке vba (visual basic for application) !

Sub aaa()
    Dim srg As Double
    srg = 1
    n = 0
    a = Range("A1:F8")
    For Each x In a
        If x > 0 Then
            srg = srg * x
            n = n + 1
        End If
    Next
    srg = srg ^ (1 / n)
    MsgBox "Ср.геом=" + Str(srg)
End Sub