Clearing Rows Containing Specified Words

How do I use this to delete the row instead of just the cell?

Sub DeleteAll()
DeleteCellContaining ActiveSheet.UsedRange, _
Array("deceased", "dcsd", "decd", "dec'd", "fcc", "dtd"), _
xlPart
DeleteCellContaining ActiveSheet.UsedRange, _
Array("esa"), _
xlWhole
End Sub

Sub DeleteCellContaining(Data As Range, Items As Variant, CellMatch As XlLookAt)
Dim rngFind As Range
Dim vntItem As Variant
With Data
For Each vntItem In Items
Set rngFind = . Find(What:=vntItem, After:=.Cells(1, 1), _
LookIn:=xlValues, LookAt:=CellMatch, _
SearchOrder:=xlByRows, _.........................