Your question doesn't make sense.

If you are asking how to run this macro with a keyboard command try two separate commands
Ctrl-Shift-End to select to end of document
Del to delete selection

__________________
Andrew Lockton
Chrysalis Design, Melbourne Australia