No me comentaste que se trataba de una función y mucho menos que era del año 2014... ¿cómo recordarla? ;)
Bien la encontré... y la voy a copiar aquí para no olvidarla y por si a alguien más le sirve:
Function contaMerge(celda) As Integer
dire = celda.Address
Set ma = Range(dire).MergeArea
contaMerge = ma.Count
End Function
Ahora, esta cuenta la cantidad de celdas en un rango combinado.
Si lo que intentas hacer es contar cuántas celdas combinadas hay en un rango seleccionado como en mi imagen anterior necesitarás la macro.
Para ejecutarla debes seguir estos pasos:
- Entrar al Editor de macros (atajo de teclado: ALT y F11)
- Insertar un módulo y copiar allí el código enviado.
- Para ejecutarla podés hacerlo desde el mismo editor, o desde la hoja buscando el menú Desarrollador, Macro, o con un botón o con un atajo de teclado... las opciones son varias y las tengo explicadas en la sección Macros de mi sitio que dejo al pie.

Otra opción posible, de modo manual:
- Seleccionar un rango o no.
- Desde menú Buscar (no escribir ningún texto) presionar botón Formato.
- En la ventana que se te abrirá, pestaña Alineación, dejar tildad la opción Combinar celdas. Aceptar
- Al volver a la ventana del buscador, Buscar todos, y te mostrará el resultado y la ubicación.

Sdos y no olvides valorar la respuesta (opción Excelente o buena).