I am looking for a simple macro that will delete all even rows through row 2000. Does anyone have any suggestions?

Thank you
RAH