Private Sub cmdAddRow_Click()
Dim tbl As ListObject
Dim newRow As ListRow
Set tbl = Worksheets("home").ListObjects("tblCosting")
'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
Yep.....anything that is linked to that sheet via VBA is potentially a problem.
I'm guessing by some of your previous threads, that you have a number of macros in the workbook.
It might be a good time to merge / remove some of your codes wherever possible..
It's easy to lose track of where and what is happening.