Dynamic drop down

The required functionality is:
you select a fruit item in column A, then move on the same row into column B where the data validation (drop-down list) shall now show the sub-selection of the selected item in col.A.
In the following sample I tried a very simplistic UDF which should return the row of the active cell. Just for testing purposes I refer to it in cell E10, ultimately this should go into the range name "Sorts_List". It does it occasionally - don't know why it works sometimes.
In the example I show an alternative approach which is not totally satisfactory either.
I would like you could please check the UDF in Module 2 and advise how to make it work.

Is there any way I can send you the excel file?

Thanks a lot,

Susanna