Run-time error 1004 paste method of worksheet class failed

[Chananthorn]

Sub save()
'
' save Macro
'
' Keyboard Shortcut: Ctrl+s
'
    Range("A4").Select
    Selection.Copy
    Sheets("database01").Select
    Sheets("database01").Unprotect Password:="pinto2019"
    Range("A1").Select
    Selection.End(xlDown).Offset(1, 0).Select
    ActiveSheet.Paste
    ActiveCell.Offset(0, 1).Range("A1").Select
    Sheets("Keyin01").Select
    Range("B4").Copy
    Sheets("database01").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    ActiveCell.Offset(0, 1).Range("A1").Select
    Sheets("Keyin01").Select
    Range("C4").Copy
    Sheets("database01").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    ActiveCell.Offset(0, 2).Range("A1").Select
    Sheets("Keyin01").Select
    Range("E4").Copy
    Sheets("database01").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    ActiveCell.Offset(0, 1).Range("A1").Select
    Sheets("Keyin01").Select
    Range("F4").Copy
    Sheets("database01").Select
    ActiveSheet.Paste
    ActiveCell.Offset(0, 1).Range("A1").Select
    Sheets("Keyin01").Select
    Range("G4").Copy
    Sheets("database01").Select
    ActiveSheet.Paste
    ActiveCell.Offset(0, 5).Range("A1").Select
    Sheets("Keyin01").Select
    Range("L4").Copy
    Sheets("database01").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    ActiveCell.Offset(0, 2).Range("A1").Select
    Sheets("Keyin01").Select
    Range("N4").Copy
    Sheets("database01").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    ActiveCell.Offset(0, 2).Range("A1").Select
    Sheets("Keyin01").Select
    Range("P4").Copy
    Sheets("database01").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    ActiveCell.Offset(0, 4).Range("A1").Select
    Sheets("Keyin01").Select
    Range("T4").Copy
    Sheets("database01").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    ActiveCell.Offset(0, 2).Range("A1").Select
    Sheets("Keyin01").Select
    Range("V4").Copy
    Sheets("database01").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    ActiveCell.Offset(0, 3).Range("A1").Select
    Sheets("Keyin01").Select
    Range("Y4").Copy
    Sheets("database01").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    ActiveCell.Offset(0, 1).Range("A1").Select
    Sheets("Keyin01").Select
    Range("Z4").Copy
    Sheets("database01").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    ActiveCell.Offset(0, 1).Range("A1").Select
    Sheets("Keyin01").Select
    Range("AA4").Copy
    Sheets("database01").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    ActiveCell.Offset(0, 1).Range("A1").Select
    Sheets("database01").Protect Password:="pinto2019"
    Sheets("Keyin01").Select
    Range("A4").ClearContents
    Range("B4").ClearContents
    Range("C4").ClearContents
    Range("E4").ClearContents
    Range("F4").ClearContents
    Range("G4").ClearContents
    Range("L4").ClearContents
    Range("N4").ClearContents
    Range("P4").ClearContents
    Range("T4").ClearContents
    Range("V4").ClearContents
    Range("Y4").ClearContents
    ActiveWorkbook.save
End Sub

 

[Ian]

Welcome to the forum, can you please give us a bit more information about your error. You haven't even mentioned which software you are using (but I guess this is Excel?).

 

[Chananthorn]

It’s Excel.

 

[Chananthorn]

It’s Excel.

Failed in
“ActiveSheet.Paste”