Agrupar o desagrupar con una misma macro

Hola de nuevo a todos
Tengo varios botones con macros que muestran filas o columnas, lo que
quiero es que si pico en el botón y estan agrupadas las desagrupe y si
estan desagrupadas las agrupe. Me trato de explicar con este ejemplo:
Celda A5: Tiene el titulo del desglose de las celdas A6:A13 y esta
visible
Celdas A6:A13: Desglose del título A5 y estan agrupadas
Celda A14: Tiene el título del desglose de las celdas A15:A19 también
visible
Celdas A15:A19: Desglose del título A14 y estan agrupadas
En la celda A5 he colocado un boton con la siguiente macro para que
despliegue las celdas A6:A13 (la he realizado con la grabadora de
macros).
Sub DesagruparV1()
Rows("6:13").Select
Selection.EntireRow.Hidden = False
Range("a5").Select
End Sub
Esta macro lo que hace es desagrupar si esta agrupado ¿como puedo
agrupar si esta desagrupado?¿que tendría que añadir-modificar?.
Cuando grabé la macro me ignoró cuando piqué en el signo + de
desagrupar y entonces la creé seleccionando las filas y mostrandolas :-
((, estoy perdida...
En la celda A14 he colocado otro boton con la misma macro cambiando
los rangos, decir que tengo mas rangos hacia abajo agrupados y en
todos necesito la misma acción.
Muchas gracias por vuestra atención
Un saludo
Cecilia