Const n = 5
Dim A(n, n)

Sub func()
Call zap

For i = 1 To n
j = n
Do Until A(i, j) < aver(i)
j = j - 1
Loop
Cells(i, n + 2) = j
Next i

End Sub

Function aver(i)
Sum = 0
For j = 1 To n
Sum = Sum + A(i, j)
Next j
aver = Sum / n
End Function

Sub zap()
For i = 1 To n
For j = 1 To n
A(i, j) = Cells(i, j)
Next j
Next i
End Sub