Random cards, shuffle and reveal help

Hi there! I'm trying to get randomized numbers (R2:R61) to match up with their corresponding card name ('-Deck construction-'!J3:J62) and then print all

the cards at (B2:B61) down the row.

' Generate Card 1
If Worksheets(2).Range("R2").Value = 1 Then Worksheets(2).Range("B2").Value = Worksheets(1).Range("J2")
If Worksheets(2).Range("R2").Value = 2 Then Worksheets(2).Range("B2").Value = Worksheets(1).Range("J3")
...
If Worksheets(2).Range("R2").Value = 59 Then Worksheets(2).Range("B2").Value = Worksheets(1).Range("J60")
If Worksheets(2).Range("R2").Value = 60 Then Worksheets(2).Range("B2").Value = Worksheets(1).Range("J61")

VB will only generate 5 cards, then it tells me that the code is too large to process.

Also my project (hobby more so) is available for download. It's still in the bare-bones state and will like criticism that'll help me. Thanks! I'm guessing a loop of some type would be used, but that's all I (think I do) know

Sorry for the late response. I made a picture that should help a bit better.

Right now I have "Random #" create a stack of random numbers 1-60 at range (R1:R61). I'm having problems getting those random numbers to link with their appropriate card that I have listed in order in another worksheet, for ease I put that list on the picture as well.

ffdasd is card name 1.
u is card name 8
KLJ is card name 34
...

I'm trying to get those names to be re listed at range B1:B61 in their new, random order.

Thank you for your responses. I've uploaded the version with the script posted above, and I don't know how to call that module up in the worksheet. I recieve an error "Argument not optional" when I try to force the script to load (It's linked on the uploaded workbook with "Shuffle Decks").

\1

I'd like to be able to shuffle the deck 5 times with one button press, and list all 5 random shuffles at once without the need of that extra button. But I'll worry about that once I get the basic learned and working.

Sorry, I'll be able to read this post more readily tonight. Thanks