Table control, vba, not adding row

I have some VBA to add a row into a table on a protected sheet. It's working fine until I add a total row to the table. Can anyone help? Below is the code I am using.

Sub ACTIVE_JOBS_TABLE_CONTROL()

    Dim pswStr As String
    pswStr = "123"
    On Error Resume Next
    Application.ScreenUpdating = False
    ActiveSheet.Unprotect Password:=pswStr
        Range("Active_Jobs[[#Headers],[ORDER REVIEWED BY]]").Select
        Selection.End(xlDown).Select
        Selection.Offset(1, -16).Select
        ActiveCell.FormulaR1C1 = "new"
        ActiveSheet.Protect Password:=pswStr, DrawingObjects:=False, _
                        Contents:=True, Scenarios:=False, _
                        AllowFormattingCells:=True, AllowFormattingColumns:=True, _
                        AllowFormattingRows:=True, AllowInsertingColumns:=True, _
                        AllowInsertingRows:=True, AllowInsertingHyperlinks:=True, _
                        AllowDeletingColumns:=True, AllowDeletingRows:=True, _
                        AllowSorting:=True, AllowFiltering:=True, _
                        AllowUsingPivotTables:=True
        Selection.ClearContents
    Application.ScreenUpdating = True
End Sub