Delete all the rows below particular text

[Tanya1]

Hi,
I want to delete all the rows below particular text.
For e.g.
If data is
1
2
3
end
----
------
-----

i want to delete all the data below End...
means i will search in column A where word is located...

suppose its is in A100 then i will delete all the rows from A101 till last row..

 

[VoG]

Try

Sub test()
Dim LR As Long, r As Range
Set r = Columns("A").Find(what:="end", LookIn:=xlValues, lookat:=xlWhole)
If r Is Nothing Then Exit Sub
LR = Range("A" & Rows.Count).End(xlUp).Row
Rows(r.Row + 1 & ":" & LR).Delete
End Sub