lastrow = Cells(Rows.Count, "K").End(xlUp).Row
Cells.Find(What:="WH", After:=ActiveCell, LookIn:=xlValues, LookAt:= _
xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext,
MatchCase:=True) _
.EntireRow.Select

This formula works to find the cell in Range("A:A") with "WH" in it then
select the entire row. What I WANT to do next is select every row above that
selection, not including the selection and delete them.

Example:
That row ends up being row 30, so what I want is row 29 all the way up to 1
all to be selected and deleted. Any ideas??? THANKS!!!