Alle rijen verwijderen onder gevonden cel

[Lisette2016]

Hallo,

Hoe kan ik mijn macro afmaken met na de gevonden cel met "Eind", alle rijen eronder te verwijderen.

Columns("A:A").Select
Selection.Find(What:="Eind", After:=ActiveCell, LookIn _
:=xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:= _
xlNext, MatchCase:=False, SearchFormat:=False).Activate

gr Lis

 

[VenA]

Bv zo

Sub VenA()
Dim r As Range
Set r = Columns(1).Find("Eind")
  If Not r Is Nothing Then Rows(r.Offset(1).Row & ":" & Cells(Rows.Count, 1).End(xlUp).Row).Delete
End Sub

 

[Lisette2016]

Dankje VenA werkt prima!!