Select and delete contents below diagonal of cell array

Hi All,

Within this forum I found code produced by Paul which selects a diagonal range of cells (see http://www.excelforum.com/excel-gene...nal-range.html ). I wish to select all the cells below the diagonal and also delete them. I thought of one way - but I don't know how to code it - from each diagonal do a Range(Selection, Selection.End(xlDown)).Select then delete, and repeat to the end of the diagonal, but this may be too inefficient or whatever..

Hoping there's a friendly E god out there.