Hi,

For some reason my macro is only allowing 2 rows added in columns O:R for Parts.

Before if you clicked the shape 'Add More Rows' each time would add another row with no limits.

Can someone please figure out why and possible edit the code?

Thanks,
FF

Sub AddMoreRows()
Dim pswStr As String
'Update by ExtendOffice 20181106
    pswStr = "pass"
    On Error Resume Next
   Application.ScreenUpdating = False
    ActiveSheet.Unprotect Password:=pswStr
    If ActiveSheet.ListObjects("Table1").ListRows.Count = 0 Then ActiveSheet.ListObjects("Table1").ListRows.Add
       ActiveSheet.Range("O2").Select
        Range("Table1[[#Headers],[Date]]").Select
        Selection.End(xlDown).Select
        Selection.Offset(1, -3).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