Assuming you found "money" and/or "header", do you want to delete the
same amount of rows each time? If so, you could do create 2 ranges:
one for HEADER and one for MONEY. then offset them and delete the
rows accordingly. Maybe something like this?

Dim rngMoney As Range
Dim srchMoney As Range

Set srchMoney = Cells.Find("money")
If Not srchMoney Is Nothing Then
Set rngMoney = Range(srchMoney, srchMoney.Offset(0, -9))
End If


and do the same for "header".....