How to paste data from one sheet onto another (noob question, I know, but plz help!!)

Hello expert VBAers,
For the life of me I'm not sure why this isn't working here's what I've done so far. If I delete the green highlighted part it will work just fine, so I'm not sure what's up.

VB:

Private Sub CommandButton5_Click()
    r1 = Sheets("Data Entry and Look Up").Range("A2").Value
    Range("B47:AD47").Select
    Selection.Copy
    Sheets("Jubilee 2012").Select
    Range("B" & r1 & ":AD" & r1).Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("Data Entry and Look Up").Select
    Application.CutCopyMode = False
End Sub

I've also tried this:

VB:
Private Sub CommandButton5_Click()
    r1 = Sheets("Data Entry and Look Up").Range("A2").Value
    Range("B47:AD47").Select
    Selection.Copy
    Sheets("Jubilee 2012").Range("B" & r1 & ":AD" & r1).Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("Data Entry and Look Up").Select
    Application.CutCopyMode = False
End Sub

I keep getting this message when I run the macro "Select method of range class failed"

None of them will work, and I kind of want to break down in tears because I've been trying to figure this out for so long.

please help!!!

thanks so much