RND Function And Match To Find Value?

I have a column of values (text) to choose from. I need to randomly assign them to names.

There are more values then names.

Each name has to have a value.

Each value has to be used only one time.

Not every value has to be used.

Column B contains names, column Q contains values.

Now. So far I've come up with below:

Code:
Sub randomize()
Dim Random As Integer[code].....

"Random" returns exactly the amount of values in column Q, so this works ok.

"i" counts iterations correctly, meaning as many times as names in column B.

I tried useing Match to rule out already used value but this code returns "unable to get Match property of the WorksheetFunction class" error.