Error al pegar valores

Hola Gustavo;
Tengo un problemila con una macro. Me da error a la hora de pegar valores: error en el método Paste Special de la clase range. Se que al excel no le gustan las celdas combinadas a la hora de copiar y pegar, pero este no es mi caso ya que no hay ninguna. Puedes ayudarme, estoy bloqueado. Gracias
Sub Historico()
Range(Cells(Selection.Row, 1), Cells(Selection.Row, 66)).Copy
Sheets("Historico").Select
ActiveSheet.Unprotect "contraseña"
Range("D65500").End(xlUp).Offset(1, -3).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
ActiveSheet.Protect Password:="contraseña"
Sheets("Salidos").Select
Selection.EntireRow.Delete Shift:=xlUp
End Sub
Saludos / Paco