First timer here, so hopefully I'm providing enough info. I'm having issues with the macro I'm working crashing excel once it reaches the ListRows.Add line of code.
I have a file that I can add and remove people to multiple tables on two worksheets (3 on "Summary" and 4 on "UTCalc"). I have commented out the code that loops on the "Summary" worksheet and everything works no problem. The Loop works on the "Summary" page most of the time, expect for when I close Excel and then go to run the UserForm to add in a new row.
If I start from my working template I built, I can add in all the rows I but once I close the file and re-open, that's when I get the "Run-time error '-2147417848 (80010108)': Method 'Add' of object 'ListRows' failed and then I have to force close / end task via task manager.

If I delete a couple rows from my tables, I can then run the ListRow.Add macro line and then it works just fine.

Is there something that I need to clear from memory? any thoughts what could cause this issue? I'm stumped!

Partial Code pasted below -

Private Sub ButtonAddMember_Click()

Dim ws As Worksheet
Dim tbl As ListObject
Dim FirstName As String
'-------------------------------------------
'=========....Prompt for Input.....=========
'-------------------------------------------
Sheets("Summary").Select

FirstName = txtFirstName
LastName = txtLastName
FullName = FirstName & " " & LastName
HrsPerWk = txtHrsPerWk
UTGoal = txtUTGoal

'-------------------------------------------
'===========....Create Sheet.....===========
'-------------------------------------------
Sheets("UTCalc").Visible = True
Sheets("Template").Visible = True
Sheets("Template").Select
Sheets("Template").Copy After:=Sheets(Sheets.Count)
Set Test = ActiveSheet
Test.Name = LastName

Sheets(LastName).Select
Range("C4").Select
ActiveCell.FormulaR1C1 = FullName
Range("D4").Select
ActiveCell.FormulaR1C1 = HrsPerWk
Range("E4").Select
ActiveCell.FormulaR1C1 = UTGoal / 100
Range("A1").Select
'-------------------------------------------
'==========....Update Summary.....==========
'-------------------------------------------
Sheets("Summary").Select
Set ws = ActiveSheet

'Loop through each table in worksheet
For Each tbl In ws.ListObjects
tbl.ListRows.Add
ActiveSheet.Range(tbl).End(xlDown).Select
ActiveCell.Formula = "='" & LastName & "'!C4"
Next tbl