Slette rækker indtil en bestemt værdi indtræffer

Oppefra eller ?

ja

Rem Anbringes under pågældende ark
rem ==============================
Dim sidsteRække As Integer, ræk As Integer
Public Sub sletRækker()
    sidsteRække = ActiveCell.SpecialCells(xlLastCell).Row
   
    For ræk = 1 To sidsteRække
        If Range("A1") = "Roskilde" Then
            Exit Sub
        Else
            Rows("1:1").Delete
        End If
    Next ræk
End Sub

Har du prøvet?

Super det virker. Tak for hjælp.

Selv tak - så får du et svar..