Mostrar u ocultar filas o columnas en Excel según el valor de una casilla

Con la siguiente macro ocultas o muestras las filas de la 6 a la 10 y las columnas de la C a la G; si en la celda A4 dice "si" se ocultan, si dice algo diferente a "si" se muestran.

Sub ocultar()
'Por.DAM
    If Sheets("informacion").[A4] = "si" Then
        Columns("C:G").EntireColumn.Hidden = True
        Rows("6:10").EntireRow.Hidden = True
    Else
        Columns("C:G").EntireColumn.Hidden = False
        Rows("6:10").EntireRow.Hidden = False
    End If
End Sub

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: ocultar
10. Aceptar.
11. Para ejecutarla dale click a la imagen.

Esta macro me sirve sólo para una celda pero si quisiera ampliarlo a otras celdas?