Eliminar rango lineas segun Shape (continuación de "Copiar y pegar Rango x veces según valor celda"

Buenos dias,

Siguiendo con el proyecto les solicito ayuda de nuevo.

Después de modificar el diseño del libro (para adecuarlo un poco a lo que necesito), se me presentan algunos problemas..

1. he agregado mas shape a la hoja con lo cual no podemos limpiar toda la hoja cada vez

2. he añadido un shape, para eliminar el rango al cual pertenece ese shape. lo curioso es que se modifica el titulo de Linea en los otros rangos.

Adjunto archivo a ver como lo veis.

Gracias de nuevo

Proyecto_1.xlsm