How can you modify you code to make it work for a selection containing
more than 1 row (instead of the active cell)