Random Row Select and Copy

help.jpgHi Guys,
I am creating a report were I can generate 5 or more Random entries in another sheet.
One Row is one entry.
If I have 500 entries, how can I randomly pick 5 (or more depending on the user's choice) from these 500 entries and copy them automatically to the next sheet.

Thanks xladept.... But how will I use it? Im just a plain excel user. ;p

Sub xtiank(): Dim i As Long, j As Long, n As Long, R() As Long
Dim ws As Worksheet: Set ws = ActiveWorkbook.Sheets("Next Sheet")
n = Val(InputBox("How many numbers???"))
ReDim R(n + 1)
For i = 1 To n
DeDupe:
R(i) = Int(Rnd() * 500) + 1
For j = 1 To i
If j = i Then Exit For
If R(i) = R(j) Then GoTo DeDupe
Next j: Next i

Let j = ws.Range("A" & Rows.Count).End(xlUp).Row

For i = 1 To n
Rows(R(i)).Copy ws.Range("A" & j): j = j + 1
Next i

End Sub

Hi xladept, I was able to run the code using a button named Random.
Thank you very much.
How will I erase the previous random list after I press the Random Button?
And make another random list?
I once used Visual Basic before, and it was 13 years ago and I forgot everything.
cheers!