Excel - Crear función en Vba para calcular la frecuencia de varias fechas

Public Function MediaRango(Rango As Range) As Double

Dim intRowsInRange As Integer

Dim intColsInRange As Integer

Dim intRow As Integer

Dim intCol As Integer

Dim intItems As Integer

' Obtenemos el número de filas y columnas del rango seleccionado

MediaRango = 0

intintems = 0

intRowsInRange = Rango.Rows.Count

intColsInRange = Rango.Columns.Count

' Recorremos las filas del rango

For intRow = 1 To intRowsInRange - 1

' Recorremos las columnas del rango

    For intCol = 1 To intColsInRange

    MediaRango = MediaRango + Rango.Cells(intRow + 1, intCol).Value - Rango.Cells(intRow, intCol).Value

    intItems = intItems + 1

    Next intCol

Next intRow

' Calculamos la media del rango

MediaRango = MediaRango / intItems

End Function