Contar elementos repetidos de una Columna y tabular resultados en otra hoja, Macro Excel

H o l a:

Lo que necesitas lo puedes hacer con una tabla dinámica.

Selecciona tus datos, ahora del menú Insertar, selecciona Tabla dinámica, Nueva hoja de cálculo y aceptar.

Nota: Tus datos deberán tener un encabezado:

En la nueva hoja de cálculo que te creó, selecciona la tabla dinámica, del lado derecho te aparecen la Lista de campos de la tabla, entonces arrastra el campo a Rótulos de fila y también arrastra el mismo campo a Valores, en automático te hace la suma por el campo:

Gracias, pero necesito que sea con una macro en visual basic (código)

Sale una macro.

Pon la siguiente macro en un módulo:

Sub ContarElementos()
'Por.Dante Amor
    Set h1 = Sheets("Hoja1")
    Set h2 = Sheets("Hoja2")
    '
    h2.Range("A:B").ClearContents
    j = 1
    For i = 1 To h1.Range("A" & Rows.Count).End(xlUp).Row
        Set b = h2.Columns("A").Find(h1.Cells(i, "A"), lookat:=xlWhole)
        If Not b Is Nothing Then
            h2.Cells(b.Row, "B") = h2.Cells(b.Row, "B") + 1
        Else
            h2.Cells(j, "A") = h1.Cells(i, "A")
            h2.Cells(j, "B") = 1
            j = j + 1
        End If
    Next
    MsgBox "fin"
End Sub

Pon tus datos en la "Hoja1", en la "Hoja2" quedarán los resultados.

Sigue las Instrucciones para un botón y ejecutar la macro

1. Abre tu libro de Excel
2. Para abrir Vba-macros y poder pegar la macro, Presiona Alt + F11
3. En el menú elige Insertar / Módulo
4. En el panel del lado derecho copia la macro
5. Ahora para crear un botón, puedes hacer lo siguiente:
6. Inserta una imagen en tu libro, elige del menú Insertar / Imagen / Autoformas
7. Elige una imagen y con el Mouse, dentro de tu hoja, presiona click y arrastra el Mouse para hacer grande la imagen.
8. Una vez que insertaste la imagen en tu hoja, dale click derecho dentro de la imagen y selecciona: Tamaño y Propiedades. En la ventana que se abre selecciona la pestaña: Propiedades. Desmarca la opción “Imprimir Objeto”. Presiona “Cerrar”
9. Vuelve a presionar click derecho dentro de la imagen y ahora selecciona: Asignar macro. Selecciona: ContarElementos
10. Aceptar.
11. Para ejecutarla dale click a la imagen.

¡Gracias! justo lo que buscaba