Tengo el siguiente macro, y me salta un error en el paste no entiendo bien el por que!

Mi macro es la siguiente, y me marca lo que tengo en negrita!!

Application.ScreenUpdating = False
rpta = MsgBox("Desea Actualizar Base", vbYesNo)
If rpta = vbYes Then
Workbooks.Open ThisWorkbook.Path & "\Transportes.xls"
Application.Run "transportes.xls!Informe"
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs ThisWorkbook.Path & "\Base de Datos.xls", CreateBackup:=False
Application.DisplayAlerts = True
Sheets("Sheet1").Select
Cells.Select

Selection.Copy
Windows("Papeles2.xlsm").Activate
Sheets("BASE (copiar Listado Transp)").Visible = True
ActiveSheet.Unprotect
Sheets("BASE (copiar Listado Transp)").Select
Cells.Select
Application.CutCopyMode = False
Selection.ClearContents
Range("A1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Range("A1").Select
ActiveSheet.Protect

Sheets("BASE (copiar Listado Transp)").Visible = False
Workbooks("Base de Datos.xls").Close savechanges:=False
Windows("Transportes.xls").Close
Sheets("Resumen Vencimientos").Select
End If
Application.ScreenUpdating = True
End Sub

Si alguien me ayuda, GRACIAS!!