generate random numbers in random range vba

Hi I'm trying to generate randbetween(1,6) notduplicated for each ID, the last two cells of each ID must have value too (range of size for generating random numbers is from 2 to 6) sth. like this:

Please Login or Register  to view this content.

Please Login or Register  to view this content.

Originally Posted by Kaper

Provided
- your IDs are in column A (starting row 2)
- generated users are to be displayed in column B.
- IDs are sorted (as in example)
- by "range of size for generating ..." you meant number of identical IDs
- if there is more than 2 identical IDs, 3 unique users numbers are to be generated
Such code shall do the work:

Please Login or Register  to view this content.

thanks for Your answer, your code is so useful