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

[OliveMarie]

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

[FDibbins]

Your post does not comply with Rule 3 of our Forum RULES. Use code tags around code. Posting code without them makes your code hard to read and difficult to be copied for testing. Highlight your code and click the # at the top of your post window. For more information about these and other tags, found here

i have put them in for you this time, but plese use them in future