Problema con la grabación de macro, error 1004

Hola todoexpertos, soy nuevo en esto de macro y a lo mucho se que es la opción grabar macro (muy básico). Lo que estoy intentando hacer es copiar datos de la hoja 1 a la hoja 2 con un botón (de las opciones de macro), pero la hoja 2 le introduzco una contraseña (1234), el primer intentento me resulta, luego al segundo me sale “Se ha producido el error ‘1004’ en tiempo de ejecución: Error en el método PasteSpecial de la clase range”…

Sub Macro17()
'
' Macro17 Macro
'
'
Range("E4:E6").Select
Selection.Copy
Sheets("Hoja2").Select
ActiveSheet.Unprotect "1234"
Range("A6").Select
Selection.PasteSpecial
Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=True
Columns("A:C").Select
Application.CutCopyMode = False
ActiveWorkbook.Worksheets("Hoja2").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Hoja2").Sort.SortFields.Add
Key:=Range("A2:A8"), _
SortOn:=xlSortOnValues,
Order:=xlAscending, DataOption:=xlSortNormal
With
ActiveWorkbook.Worksheets("Hoja2").Sort
.SetRange Range("A1:C8")
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
ActiveSheet.Protect "1234"
End With
Range("E10").Select
Sheets("Hoja1").Select
Range("E4:E6").Select
Selection.ClearContents
Range("E4").Select
End Sub

nota: estos códigos yo no los hice, se escrivio automáticamente mientras grababa con la opción 'grabar macro', yo solo le agregue la contraseña cosa que no se si estará bien.

gracias