Find Cell in sheet and insert copy to another

Hi: I'm trying to find a cell in one worksheet then select entire row, copy, select another sheet, find the last row and insert paste the row. My code performs the copy/paste but then returns error 1004 - ...copy and paste area are not same size/shape.

CODE:
Worksheets("Reg_Scores").Activate
'Range("B3").Select
For PlayerRow = 1 To 50
Set PlayerCell = Range("B3").Offset(PlayerRow - 1, 0)
PlayerCell.Select
If PlayerCell.Text = cmbPlayer.Text Then
PlayerCell.Activate
ActiveCell.EntireRow.Copy
Worksheets("Sub_Scores").Activate
Range("B3").End(xlDown).Select
ActiveCell.EntireRow.Insert
ActiveSheet.Paste
Application.CutCopyMode = False
Exit For
End If
Next PlayerRow
End Sub
/CODE:

ANy help is appreciated...

Sorry about that. Here it is in the proper format:

Please Login or Register  to view this content.