Delete cells up after find data

[tvman5683]

I use this code to find a cell that contains the text"Data:" then delete everything that follows to the Last Cell.
I would like to change this in order to delete everything preceding this cell or in other words to the First cell.
I'm thinking it's two steps after finding the cell.
Active Cell move up 1
Then Select Active cell to first cell then delete.
any suggestions would be appreciated

Sub FindData()
   With Range("B:K")
   Cells.Find(what:="Data:", After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _
    xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False) _
    .Activate
    Range(Selection, ActiveCell.SpecialCells(xlLastCell)).Select
    Selection.EntireRow.Delete
  End With
End Sub

 

[VoG]

Try

Sub FindData()
Dim Found As Range
   Set Found = Range("B:K").Find(what:="Data:", After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _
    xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False)
    If Not Found Is Nothing Then Rows(1 & ":" & Found.Row).Delete
End Sub

 

[tvman5683]

It did work except it deleted the Found row too.
I need to save that row.

 

[VoG]

Try

Sub FindData()
Dim Found As Range
   Set Found = Range("B:K").Find(what:="Data:", After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _
    xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False)
    If Not Found Is Nothing Then Rows(1 & ":" & Found.Row - 1).Delete
End Sub

 

[tvman5683]

There you go! That did it.
Thank You for the excellent advice and quick response.

JB