Error 70 'Permission Denied' when Pasting

[Contigo1234]

Hello Forum....

I'm a novice troubleshooter when it comes to excel VBA, I'm getting a runtime error '70' permission denied on my code, any suggestions would be appreciated. It's a VBA that takes cell values from worksheet 'CT_Checks' and pastes them in another worksheet named 'History' in a single row. Each cell in 'CT_Checks' points to a specific column in a row of the worksheet 'History'.

Cheers,

Contigo.

Public Sub cmdClearit_Click()
Sheets("CT_Checks").Select
Sheets("CT_Checks").Activate

    Sheets("CT_Checks").Range("C2").Value = ""
    Sheets("CT_Checks").Range("C3").Value = ""
    Sheets("CT_Checks").Range("C4").Value = ""
'Couch Checks
    Sheets("CT_Checks").Range("E10").Value = ""
    Sheets("CT_Checks").Range("E15").Value = ""
    Sheets("CT_Checks").Range("E16").Value = ""
    Sheets("CT_Checks").Range("E20").Value = ""
    Sheets("CT_Checks").Range("E24").Value = ""
    Sheets("CT_Checks").Range("E25").Value = ""
'Section 1
    Sheets("CT_Checks").Range("D37").Value = ""
    Sheets("CT_Checks").Range("D38").Value = ""
    Sheets("CT_Checks").Range("D39").Value = ""
    Sheets("CT_Checks").Range("D40").Value = ""
    Sheets("CT_Checks").Range("D41").Value = ""
    Sheets("CT_Checks").Range("D45").Value = ""
    Sheets("CT_Checks").Range("D46").Value = ""
    Sheets("CT_Checks").Range("D47").Value = ""
'Section 2
    Sheets("CT_Checks").Range("F53").Value = ""
    Sheets("CT_Checks").Range("B59").Value = ""
    Sheets("CT_Checks").Range("C59").Value = ""
    Sheets("CT_Checks").Range("D59").Value = ""
'Section 3
    Sheets("CT_Checks").Range("E65").Value = ""
    Sheets("CT_Checks").Range("F74").Value = ""
    Sheets("CT_Checks").Range("F76").Value = ""
    Sheets("CT_Checks").Range("F77").Value = ""
    Sheets("CT_Checks").Range("F79").Value = ""
    Sheets("CT_Checks").Range("E85").Value = ""
    Sheets("CT_Checks").Range("E86").Value = ""
    Sheets("CT_Checks").Range("E87").Value = ""
    Sheets("CT_Checks").Range("E88").Value = ""
    Sheets("CT_Checks").Range("E89").Value = ""
    Sheets("CT_Checks").Range("E96").Value = ""
    Sheets("CT_Checks").Range("E97").Value = ""

ActiveSheet.Protect ("fizix")
End Sub

Public Sub cmdSaveitST_Click()

Sheets("CT_Checks").Select
Sheets("CT_Checks").Activate

    Date = Sheets("CT_Checks").Range("C2").Value
    phys = Sheets("CT_Checks").Range("C3").Value
    CT = Sheets("CT_Checks").Range("C4").Value
    LasAlgn = Sheets("CT_Checks").Range("F10").Value
    CouchTvl = Sheets("CT_Checks").Range("F17").Value
    scaling = Sheets("CT_Checks").Range("F20").Value
    orient = Sheets("CT_Checks").Range("F24").Value
    uniformity = Sheets("CT_Checks").Range("F42").Value
    artifacts = Sheets("CT_Checks").Range("E46").Value
    LCR_s2 = Sheets("CT_Checks").Range("G53").Value
    HCR_s3 = Sheets("CT_Checks").Range("G65").Value
    CT_Const = Sheets("CT_Checks").Range("H74").Value
    R1 = Sheets("CT_Checks").Range("E88").Value
    R2 = Sheets("CT_Checks").Range("E89").Value
    T = Sheets("CT_Checks").Range("E85").Value
    P = Sheets("CT_Checks").Range("E86").Value
    TPCorr = Sheets("CT_Checks").Range("E87").Value
    DoseConst = Sheets("CT_Checks").Range("E91").Value
    DoorInt = Sheets("CT_Checks").Range("E96").Value
    EStop = Sheets("CT_Checks").Range("E97").Value
    Sheets("History").Select
    Sheets("History").Activate
    ActiveSheet.Unprotect ("fizix")

  Dim lr As Long
lr = Sheets("History").Cells(Rows.Count, "A").End(xlUp).Row
    With Sheets("History")
        .Range("A" & lr + 1).Value = Sheets("CT_Checks").Range("C2").Value         
        .Range("B" & lr + 1).Value = Sheets("CT_Checks").Range("C3").Value         
        .Range("C" & lr + 1).Value = Sheets("CT_Checks").Range("C4").Value         
        .Range("D" & lr + 1).Value = Sheets("CT_Checks").Range("F10").Value        
        .Range("E" & lr + 1).Value = Sheets("CT_Checks").Range("F17").Value        
        .Range("F" & lr + 1).Value = Sheets("CT_Checks").Range("F20").Value        
        .Range("G" & lr + 1).Value = Sheets("CT_Checks").Range("F24").Value        
        .Range("H" & lr + 1).Value = Sheets("CT_Checks").Range("F42").Value        
        .Range("I" & lr + 1).Value = Sheets("CT_Checks").Range("E46").Value         
        .Range("J" & lr + 1).Value = Sheets("CT_Checks").Range("G53").Value         
        .Range("K" & lr + 1).Value = Sheets("CT_Checks").Range("G65").Value         
        .Range("L" & lr + 1).Value = Sheets("CT_Checks").Range("H74").Value         
        .Range("M" & lr + 1).Value = Sheets("CT_Checks").Range("E88").Value         
        .Range("N" & lr + 1).Value = Sheets("CT_Checks").Range("E89").Value         
        .Range("O" & lr + 1).Value = Sheets("CT_Checks").Range("E85").Value         
        .Range("P" & lr + 1).Value = Sheets("CT_Checks").Range("E86").Value         
        .Range("Q" & lr + 1).Value = Sheets("CT_Checks").Range("E87").Value         
        .Range("R" & lr + 1).Value = Sheets("CT_Checks").Range("E91").Value         
        .Range("S" & lr + 1).Value = Sheets("CT_Checks").Range("E96").Value         
        .Range("T" & lr + 1).Value = Sheets("CT_Checks").Range("E97").Value         
    End With

ActiveSheet.Protect ("fizix")
End Sub