Excel - formulas para estadisticas

Sub MasRep()

'Definir cuantos datos hay desde una celda usando CONTARA

    PASEO = Range("E1").Value

    Range("D2").Activate 'Posicionamiento inicial

    'Bucle para realizar la formula de contar y eliminar de la cuenta los vacios

    For i = 1 To PASEO Step 1

         ActiveCell.FormulaR1C1 = "=IF(RC[-2]="""",0,COUNTIF(C[-2],RC[-2]))"

         ActiveCell.Offset(1, 0).Activate

    Next

    'Nuevo posicionamiento inicial

    Range("D2").Activate

    MAXCANT = ActiveCell.Value 'Tomamos como maximo repetitivo el primer valor

    CELDA = ActiveCell.Row 'Detección de la posicion que tenemos

    CIUDAD = Range("B" & CELDA).Text 'Asignamos como primera ciudad el primer valor

    'Comenzamos con el bucle nuevamente para pasar por todos los conteos

    'Al mismo tiempo vamos reasignando la ciudad si encontramos un valor mayor

    For i = 1 To PASEO Step 1

        ActiveCell.Offset(1, 0).Activate

        If ActiveCell.Value >= MAXCANT Then

            CELDA = ActiveCell.Row

            MAXCANT = ActiveCell.Value

            CIUDAD = Range("B" & CELDA).Text

        End If

    Next

    'Limpiamos el estropicio

    Range("D:D").ClearContents

    'Mostramos resultado

    MsgBox "La ciudad más repetida es " & CIUDAD & " con " & MAXCANT & " veces repetida"

End Sub