Luis_P respondió:
Una ves posicionado sobre la celda que ya indicste que puedes encontrar, entonces: Range(Selection, Selection.End(xlToRight)).Select Range(Selection, Selection.End(xlDown)).Select Selection.EntireRow.Select Selection.EntireRow.Delete Asi toma todas...