Can anyone speed up this code : This code 8 cells from a data entry form and copies those cells to the next empty row on another worksheet that is used as a database.  It works perfectly except that it takes 15 seconds to run.  I know that I can speed up the code if it didn't copy to another sheet.  It that scenario it think that I timed it at <7 seconds.
Is there a way to significantly speed up this code without merging the two sheets which, at this point is a logistical nightmare?

    sub UpdateLogWorksheet1()
    Application.ScreenUpdating = False
    Application.EnableEvents = False

    Dim historyWks As Worksheet
    Dim inputWks As Worksheet

    Dim nextRow As Long
    Dim oCol As Long

    Dim myRng As Range
    Dim myCopy As String
    Dim myclear As String
    Dim myCell As Range
    ActiveSheet.Unprotect "sallygary"
    
    myCopy = "e4,g26,g16,g12,g18,g20,g22,g24"
    Set inputWks = Worksheets("Dept 1 Input")
    Set historyWks = Worksheets("1_Data")

    With historyWks
        nextRow = .Cells(.Rows.Count, "A").End(xlUp).Offset(1, 0).Row
    End With

    With inputWks
        Set myRng = .Range(myCopy)

    End With

    With historyWks
        With .Cells(nextRow, "A")
            .Value = Now()
            .NumberFormat = "mm/dd/yyyy"
        End With
        .Cells(nextRow, "B").Value = Application.UserName
        oCol = 3
        For Each myCell In myRng.Cells
            historyWks.Cells(nextRow, oCol).Value = myCell.Value
            oCol = oCol + 1
        Next myCell
    End With

    With inputWks
      On Error Resume Next
         End With
      On Error GoTo 0
    ActiveSheet.Protect "sallygary"
    Range("g12").Select
    Application.ScreenUpdating = True
    Application.EnableEvents = True

End Sub