which macro Dave ??
Private Sub cmdAddRow_Click()
Dim tbl As ListObject
Dim newRow As ListRow
Set tbl = Worksheets("home").ListObjects("tblCosting")
'ActiveSheet.Unprotect Password:="npssadmin"
'add a row at the end of the table
Set newRow = tbl.ListRows.Add
newRow.Range(28) = 1 'assuming the first column of your table is in Column A. Adjust as necessary
End Sub