Agregar línea a código que divida el resultado en libro excel

Como puedo agregarle al siguiente código que la suma de las celdas seleccionadas se pueda dividir por el recuento de las mismas y coloque ese resultado en az1

Option Explicit

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

Dim Celda As Range
Dim MiArray()
Dim nMayor As Long, nMenor As Long, x As Long, y As Long, MiSuma As Long, nValores As Long

If IsUserFormLoaded("UserForm2") = False Then Exit Sub
If Application.WorksheetFunction.CountA(Selection) = 0 Then Exit Sub

If Application.WorksheetFunction.CountA(Selection) = 1 Then
Let nValores = 1
Else
Let nValores = Application.WorksheetFunction.CountA(Selection) - 1
End If

ReDim MiArray(0 To nValores)
Let x = 0

For Each Celda In Target
If Celda <> "" Then
MiArray(x) = Celda.Value * 1
Let x = x + 1
End If
Next Celda

nMayor = MiArray(0)
nMenor = MiArray(0)

For y = 0 To nValores
If MiArray(y) > nMayor Then nMayor = MiArray(y)
If MiArray(y) < nMenor Then nMenor = MiArray(y)
MiSuma = MiSuma + MiArray(y)
Next

With UserForm2
.Label5.Caption = MiSuma
.Label6.Caption = MiSuma / nValores
.Label7.Caption = nMayor
.Label8.Caption = nMenor
End With

End Sub