Excel VBA删除列表中的指定值

I have a list of 100 rows of data, and there are 6 unique values in those 100 rows. I am trying to run a for/next statement to randomly pull a value from that list and then delete every row of data in the list of 100 that match the value that I pulled. Then, I would like to repeat this process on the new data set (for example, if there was a list of 100 items and it 14 of them said "Apple" and Apple was the returned value, I want it to delete all cells that say "Apple", and run the process on the remaining 86 cells). The ultimate product is a randomly ranked list of all 6 unique values with no duplicatesI have a list of 100 rows of data, and there ar