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.