Hej!
Kanske kan detta fungera?
Den går igenom alla värden fram tills dess att det blir en tom cell i kolumn A.
*****************************************************************
Sub remove_rows()
Dim rad As Integer
Application.ScreenUpdating = False
'Vilken rad vill du att koden ska starta på?
rad = 1
'Loop som tar bort alla rader i sheet1, som innehåller XYXY i kolumn 1
Do Until IsEmpty(Sheet1.Cells(rad, 1)) = True
If Sheet1.Cells(rad, 1).Value = "XYXY" Then
Rows(rad).Delete
rad = rad - 1
End If
rad = rad + 1
Loop
Application.ScreenUpdating = True
End Sub
*****************************************************************
//Swezoo