宏删除除包含特定文本的行之外的所有行

I'm trying to write a Macro which will delete every row, apart from those which contain some specific text.I'm trying to write a Macro which will delete e