Transfering Range of Cells with Merge & Grouping

[gimgandi]

Not sure how to put this in words, but basically macro is run from the sheet1, and it should produce one like sheet2 (Sheet2 is empty)

The trick is that macro should only work with user selected range. (Marked as green in worksheet for example)
So if A2:A9 is selected, it will only grab data from A2:A9 to last column with data
If nothing is selected then exit sub with msgbox or something

Order/sort does not matter as long as it merges XYs duplicates and group respective fruits together.

Thank you so much for help!