Prize Draw with Macro

Hi Guys

I'm trying to get a random prize draw working with in excel. My worksheet structure as follows.

A1 person's name
B2 points obtain by the person.

A1 B2
John 10 points
Ken 20 points
Amy 30 points

1st draw. If random number result between 1 and 10 display John wins then delete John's entries.
2nd draw etc... and delete anyone that has already won a prize.


With the following code I found on this forum it partly works. It only randomly select a cell but missing displaying the winner and removing it afterwards. Any help will be appreciated.

Sub random()

Dim rng As Range

Set rng = Range("a1:a180")

rng.Cells(Int(Rnd * rng.Cells.Count) + 1).Select


End Sub