Try
Sub randomSelect()
Dim MyValue
For i = 2 To 21
MyValue = Int((158 * Rnd) + 2)
'Cells(i, 3) = MyValue
Range("E" & MyValue).Copy Destination:=Range("B" & i)
Next
End Sub

"TGalin" wrote:

I pasted the macro I have below. I want to add to it so that it will
randomly select 20 of the cells from the range E2:E159 to copy and paste
those contents starting in cell B2. Is this possible?

Random Copy Paste()
Range("E2:E159").Select
Selection.Copy
Range("B2").Select
ActiveSheet.Paste
End Sub