Advanced record delete.

I am currently using the following macro to delete rows:

Please Login or Register  to view this content.

How can I take it further so that if the user does not have an active cell selection between (and including) Columns A to K, from row 6 to the last record then is displays the message "You must select a record to be deleted'.
Also if the user selects multiple rows then the message box would instead display the message 'Are you sure you want to delete the records (display the A cell of the first row in the selection) to (display the A cell of the last row in the selection)?
Then erase every row in the selection.

Thank you Pierre, however I would like to make a couple of changes if possible. When there is only one cell selected (and therefore only one row/record bing deleted) it currently displays the record number twice (as its expecting multiple rows). In this situation only can it instead display a different message where the record number is only listed once. So it would read: 'Are you sure you want to delete record number (then display the record number from the A column).'
Also its having difficulty in correctly finding the last record, which I think is because I have formulas in a couple of the columns. I am currently using the following code to successfully find the last row using the G column since the G column does not contain formulas. Can a similar code be used with this code to use G as the column to find the last row?

Cells(Rows.Count, "G").End(xlUp).Offset(1).Select