generate random results, removing only SOME duplicates

I've attached an example workbook.

Right now, I have it functioning where the report tab will read the data from the DATA tab, then remove duplicates of that data when the "Generate Report" commandbutton is pressed, leaving only one person with the same name listed. I would like to add the option of choosing how many duplicates to remove, leaving a desired amount of persons with the same name listed, if there are that many. For instance, my example includes 4 "joe smith"s, 1 "tracy johnson", and 2 "steve wright"s. I want to be able to choose to leave 2 of each. So that would leave 2 of the "joe smith"s, and the still populate the 1 "tracy johnson" and the 2 "steve wright"s. And/or I want to be able to choose to leave 3 of each, which would then leave 3 of the "joe smith"s and still populate the 1 "tracy johnson" and the 2 "steve wright"s, etc, etc.
I've been told it's a VBA issue....
Is this possible? if so, how? Thanks!

example.xlsm

you have a bit of code that looks like this:

Please Login or Register  to view this content.

(to view this press alt+F11 to open the vba developed and look in module1 or module2).

I'm not overly familiar with the .removeduplicates method but I would assume you can't choose how many to leave, therefore you probably need to write your own "code" to remove a certain number of duplicates. If you replace the code above with the code below and change the number of "number_of_duplicates_left" as neccessary, that should work.

Please Login or Register  to view this content.

I get "Sub or Function not defined" pop-up and the second "Range" is highlighted in the fifth line... I'm not sure how to fix, please help

sorry, try replacing countif with worksheetfunction.countif

now i get "Method 'Range' of object '_Global' failed" error, now I'm really lost! help!! Thank you!

I made the modifcation, but when i run the code, it keeps going and going. Ultimately I have to force quit Excel to stop it and unfreeze other open documents. I tried modifying the range (B1:B500) to no avail . Any suggestions?

same result... continuous execution, have to force quit. Please advise Thanks again for all your help!

I don't believe it is continuous execution, I think it is just taking a long time. It might help speed things up if you turn calculation and screenupdating off.

Please Login or Register  to view this content.

awesome, this does execute, although it takes a couple minutes. How do I get the commandbuttons to stop moving around after this code is run?

Change the property of the command button to "don't move or size with cells"

perfect, just did that, trying it now you guys are awesome, thanks so much for the help