VBA is not working after first button click

So my problem is that everything works perfectly fine even when i click the buttons, but the second time i want to click them it gives me an error and the whole excel document is almost like in debug mode even after i clicked stop.
I am able to type on other excel sheets however no cursor appears nor the green box around cells when you click them.
This code copies either one or all of the sheets from workbook, opens a new workbook and pastes the sheet there all while being protected. Again it has work in the past but now it only works the first time i click it and none after that and i cant seem to figure out why.

the error on the second try is "method copy of object range failed". But if it worked the fist time why not the second??
thank you

EDIT: also when you exit out of excel after i get this error it says "excel stopped working and is checking for a solution"

Sub copy_first_sheet()
Sheet20.Unprotect ""
Dim newbook As String
Dim GetBook As String
GetBook = ActiveWorkbook.Name

Call CopyWorksheetValues
Call Clear_Buttons

Call DeleteallCharts
ActiveSheet.Range("a59:i180").Clear
ActiveSheet.Range("67:68").Locked = True
Rows("67:180").EntireRow.Hidden = True
ActiveWindow.DisplayGridlines = False
With ActiveSheet.PageSetup
    .LeftHeader = ""
    .CenterHeader = ""
    .RightHeader = ""
    .LeftFooter = ""
    .CenterFooter = ""
    .RightFooter = ""
 End With

newbook = ActiveWorkbook.Name
ActiveSheet.Protect ""
Workbooks(GetBook).Activate
Sheet20.Protect ""
Workbooks(newbook).Activate


End Sub


Sub copy_all_sheet()
Sheet20.Unprotect ""
Dim newbook As String
Dim GetBook As String
GetBook = ActiveWorkbook.Name

Call CopyWorksheetValues
Call Clear_Buttons

ActiveSheet.Range("67:68").Locked = True

ActiveWindow.DisplayGridlines = False


newbook = ActiveWorkbook.Name
ActiveSheet.Protect ""
Workbooks(GetBook).Activate
Sheet20.Protect ""
Workbooks(newbook).Activate
End Sub



Sub Clear_Buttons()
Dim i As Integer
        ActiveSheet.Buttons.delete
End Sub
Sub CopyWorksheetValues()
    ThisWorkbook.Worksheets("comparison").Copy

    Cells.Copy
    Range("A1").PasteSpecial Paste:=xlPasteValues
    Application.CutCopyMode = False
End Sub
Sub DeleteallCharts()
Dim chtObj As ChartObject
For Each chtObj In ActiveSheet.ChartObjects
    chtObj.delete
Next

Dim pic As Picture
    For Each pic In ActiveSheet.Pictures
        If pic.Name <> "" Then
            pic.delete
        End If
    Next pic
End Sub

not having any issues running the code on my temp workbook that I created not sure in its just to much information that it is trying to copy over you can try adding.

Application.ScreenUpdating = False

To the beginning of your main macros and at the end of them add

Application.ScreenUpdating = True

If this doesn’t help then is it possible for you to upload a sample file so we can better help you with this issue

Thank you for your reply. However that did not work. I am going to try and replicate the error on a different document and post it here

Ok i think i uploaded an attachment below. Please let me know if it does not show up because i am new to this and still getting the hang of it.

But as you can see the button to copy the sheets works the first time but when the new document is closed out and you try to perform the same action on the original document again i get an error?

Thank you for looking at it!

UPDATE: even if i delete all the code of my posted excel document and only leave the following code i still receive the same error.

Sub test()
ThisWorkbook.Worksheets("Comparison").Copy

End Sub