Find specific text, select rows upward (- the selected cell) then delete

[VBAWannabee2]

Good day!

Hi, asking for your little help on this one.
After finding(selecting) the value of "Proj" on the active sheet, I want to delete all rows above it except the row where the "Proj" exist.
The code for it was the only one I'm missing / having trouble to.

Sub Process1()

ActiveSheet.Select
cells.Sort Key1:=Columns("A"), key2:=Columns("B")

cells.Find(What:="Proj", After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Select

---missing---
selection.Delete shift:=xlUp

End Sub

Thank you in advance!

 

[bebo021999]

for the missing part:

range(cells(1,"A"), selection.offset(-1,0)).entirerow.select

 

[Georgiboy]

Perhaps:

Sub Process1()
    Cells.Sort Key1:=Columns("A"), Key2:=Columns("B")
    Rows("1:" & Cells.Find(What:="Proj").Row - 1).Delete
End Sub

 

[VBAWannabee2]

Works flawlessly Sir! Thanks and cheers!!

 

[VBAWannabee2]

Perhaps:

Sub Process1()
    Cells.Sort Key1:=Columns("A"), Key2:=Columns("B")
    Rows("1:" & Cells.Find(What:="Proj").Row - 1).Delete
End Sub

Works like magic too Sir! would love to mark this as a solution too but sadly it can't (Works well though ) but thank you and cheers!

I'mma study this code of yours but am I correct? Does "1:" refers to 1st row of the sheet? then "Cells.Find(What:="Proj").Row-1) refers to the row above the cell where "Proj" belongs?

 

[Georgiboy]

I'mma study this code of yours but am I correct? Does "1:" refers to 1st row of the sheet? then "Cells.Find(What:="Proj").Row-1) refers to the row above the cell where "Proj" belongs?

No worries and that is correct

 

[VBAWannabee2]

No worries and that is correct

Much thanks!! Lastly if you won't mind me taking your time, what if I want to delete all the rows below including the cell where "Proj" is?

 

[Georgiboy]

Sub Process1()
    Cells.Sort Key1:=Columns("A"), Key2:=Columns("B")
    Rows(Cells.Find(What:="Proj").Row & ":" & Rows.Count).Delete
End Sub