Update on previous post (first was in error):
use following to delete the rows:
sub DeleteUpToBrown
dim r as integer, rc as integer
rc=activesheet.usedrange.rows.count
for r = 1 to rc
if cells(1,1).value="Brown Cows" then exit for
cells(1,1).entirerow.delete
next r
end sub
Use following to clear the contents of the rows
sub ClearUpToBrown
dim r as integer, rc as integer
rc=activesheet.usedrange.rows.count
for r = 1 to rc
if cells(r,1).value="Brown Cows" then exit for
cells(r,1).entirerow.clearcontents
next r
end sub
sorry for confusion