VBA Code to Copy and Paste

[Eakes03]

I am new to VBA and need some help.

I have a worksheet named "Registration" where the data is located that I need to copy and a worksheet named "Player_List" where the data needs to be pasted in the first empty cell. I am getting a Runtime Error 1004 on the code below:

Sub Copy_to_Player_List()
Sheets("Registration").Select
Range("$A$14:$B$50").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Player_List").Select
Range("A65536").End(xlUp).Offset(1, 0).Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
End Sub

The Error is coming from: Range("A65536").End(xlUp).Offset(1, 0).Select

What am I doing wrong?

 

[JPM]

I think your code is correct, I tested it out and it works just fine. However, you might want to watch were you post it. When I posted it into a module (i.e. Module1) it worked just fine, but when I posted it directly to the Sheet, I would also get Run-time error '1004'.
So I suggest that you just create a module and post it there. I don't know why, I just know it works for me.

Hope this helps.

 

[Eakes03]

Thank you so much.