something like this from the bottom up. I did not test but you get the idea
for i = cells(rows.count,"d").end(xlup).row to 26 step -1
if cells(i,"d")< "DR*" and cells(i,"d")<"DB*" then
cells(i,"d").entirerow.delete
next
--
Don Guillett
SalesAid Software

"Dan" wrote in message
...
I am trying to create a macro that looks at all the data
from row 26 down and using data in column D if it does not
equal DR* or DB* delete the row.

End result all rows below 26 are deleted leaving DR* and
DB*.