Tengo una macro para eliminar con la condición de un Nombre un numero de Filas en A ejemplo PEPE en A50 que tiene unos datos en A51:A55 y elimina todos los PEPE A.50:A55,Pero necesitaría todo lo contrario….. una Macro que en Columna A Eliminase todo los datos menos PEPE con sus datos ejemplo A50:A51 que esta repetido X veces en A en diferentes posiciones en A.
Sub EliminarFilas_segun_texto ()
Dim Texto As String, Celda As Range, Hoja As Worksheet
Set Hoja = ThisWorkbook.Sheets("HOJA")
Texto = InputBox("Texto a buscar")
If Not Texto = "" Then
For cont = Hoja.Range("A" & Rows.count).End(xlUp).Row To 3 Step -1
Set Celda = Hoja.Columns("A").Find(Texto, , , xlWhole)
If Not Celda Is Nothing Then
Hoja.Range(Celda, Celda.Offset(24, 0)).EntireRow.Delete
End If
Next cont
End If
End Sub