This code will be almost identical.
In the one for whole rows you will have something like
foundcell.entirerow.delete
in the case described you need something like:
Range("D" & foundcell.row & ":AP"  & foundcell.row).ClearContents
instead