Sub jeeremy()
Dim Fnd As Range
Set Fnd = Range("A:A").Find("something", , , xlWhole, , , False, , False)
If Fnd Is Nothing Then Exit Sub
Range(Fnd.Offset(1), Cells(Rows.Count, 1)).EntireRow.Delete
End Sub
Range(Fnd, Cells(Rows.Count, 1)).EntireRow.Delete