try this simple ditty
sub delrows()
fr=columns(1).find("End").row
lr=cells(rows.count,"a").end(xlup).row
rows(fr & ":" & lr).delete
end sub
--
Don Guillett
Microsoft MVP Excel
SalesAid Software

"Richard" wrote in message
...
MS OS XP:
Excel 2000:

Need a macro that deletes all rows from the end of data up to a cell in
Colum A that contains the word End.

Example: If cell A(150) = €œEnd€� Then
Delete all rows from the end of data up to and including row 150.

Thanks in advanced,

--
Richard