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