Contar celdas según valores

Bueno la verdad no entiendo muy bien lo que debo hacer puesto que, no conozco sobre los términos que se manejan en los gimnasios, le sugiero que me envíe un modelo del archivo que tiene al correo [email protected] bien descrito de lo que debo hacer y con mucho gusto lo analizo y trato de ayudarlo en lo que más pueda, estoy atento a la recepción del archivo que tenga un feliz día!

Vale, muchas gracias.
Te acabo de mandar el archivo.

Bueno ya hice la prueba que necesitaba hacer y a mi parecer la macro funciona muy bien, tengo algunas recomendaciones para hacerle con el fin del buen funcionamiento de la macro:
1. Debe calcular cuantas filas o registros tiene la macro que procesar, este dato lo obtiene restando las primeras 3 filas (1-3) vacías de la menos la ultima fila que tiene información, por ejemplo para el archivo que me mano hay exactamente 1048 registros, obtenido este dato, debe abrir el editor de visual basic (Alt + F11) y allí debe aparecer una opción en el panel izquierdo que se llama "Modulo1", hace doble click sobre el y allí se muestra el código, en la linea que dice Y=1048, va a remplazar ese 1048 por la cantidad de filas a procesar.
2. Debe copiar la columna A y B y pegar esos datos tal cual en las columnas AC y AD
3. En el rango AE2 debe siempre haber información para que la macro se ejecute.
4. Y por ultimo no tocar ninguna otra linea de código, debido a quecualquier modificación por mínima que sea dañara la macro.
Al finalizar la macro mostrara un mensaje de finalización, bueno espero que le sea útil y no olvide puntuar y finalizar la pregunta en todoexpertos, que tenga un feliz día!
Saludos!
A continuación dejo la macro, tal vez alguien la lea y le sea de utilidad:
Sub agrupar_series()
'MACRO DESARROLLADA POE EDWIN MORENO
'21/12/2010
'TULUA - VALLE DEL CAUCA, COLOMBIA
'MACRO SIN COMENTAR
'VARIABLES SIN DECLARAR
y = 1048
contador = 1
celda = Sheets("Hoja1").Range("C3").Address
Range(celda).Select
For a = 1 To y
ActiveCell.Offset(a, 0).Select
salida3:
If (ActiveCell.Value = Empty) Then
    Range(celda).Select
    GoTo siguiente_linea
End If
Do While Not IsEmpty(ActiveCell)
b = ActiveCell.Value
ActiveCell.Offset(0, 1).Select
c = ActiveCell.Value
ActiveCell.Offset(0, 1).Select
    Do While Not IsEmpty(ActiveCell)
    If (ActiveCell.Value = b) Then
        ActiveCell.Offset(0, 1).Select
        If (ActiveCell.Value = c) Then
            contador = contador + 1
            ActiveCell.Offset(0, 1).Select
            Else
                ActiveCell.Offset(0, -1).Select
                GoTo mensaje
        End If
        Else
            GoTo mensaje
    End If
    Loop
Loop
mensaje:
direccion = ActiveCell.Address
Range("AE2").Select
Do While Not IsEmpty(ActiveCell)
ActiveCell.Offset(a, 0).Select
If (ActiveCell.Value = Empty) Then
    ActiveCell.Value = b
    ActiveCell.Offset(0, 1).Select
        If (ActiveCell.Value = Empty) Then
        ActiveCell.Value = c
        ActiveCell.Offset(0, 1).Select
            If (ActiveCell.Value = Empty) Then
            ActiveCell.Value = contador
            b = Empty
            c = Empty
            contador = 1
            Range(direccion).Select
            GoTo salida3
                Else
                    GoTo salida2
            End If
            Else
                GoTo salida2
        End If
    Else
        GoTo salida2
End If
salida2:
Do While Not IsEmpty(ActiveCell)
ActiveCell.Offset(0, 1).Select
Loop
ActiveCell.Value = b
ActiveCell.Offset(0, 1).Select
ActiveCell.Value = c
ActiveCell.Offset(0, 1).Select
ActiveCell.Value = contador
Range(direccion).Select
contador = 1
GoTo salida3
Loop
siguiente_linea:
Next
MsgBox "PROCEDIMIENTO FINALIZADO!"
End Sub