Macro para eliminar datos de Columna?

Necesitaría una Macro que en Columna A Eliminase todos los datos menos ejemplo “Mercedes” y sus datos que ocupan 5 celdas o filas.