VBA to Randomly Select a Cell

I have a list of people that I need to randomly assign to different tasks. Does anyone know how to do this? Here's what I have:

Sub Random_Selection()

Dim RandomCell As Integer

For RandomCell = 1 To 100

Cells(RandomCell, 1).Copy
Sheets("Assign Task").Select
Range("A" & Rows.Count).End(xlUp).Offset(1, 0).Select
ActiveSheet.Paste

Sheets("Staff list").Select

Next


End Sub

What I'm missing obviously is that there is no randomness yet.

This routine will pick at random all members of the range between 1 and rmax
the use of the array sel() is to ensure that the choices are not repeated.

Sub randomness()

Dim j, r, rmax
Dim sel(100)
sel(0) = 1
Randomize
rmax = 20 ' maximun number of choices

For i = 1 To rmax

j = 0
While sel(j) > 0
j = Int((rmax * Rnd) + 1)
Wend
sel(j) = 1
Cells(j, 1) = i

Next i

End Sub