Probably you can use the WorksheetChange event: when a new row is added to the table Target.Address will refer to the last row of the table; also, when you tab at the end on the table, the selection will move to cell 1 of the table row.
So probably this code will catch the situation:
Code:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Ck1 As Boolean, Ck2 As Boolean
'
On Error Resume Next
Ck1 = (Selection.ListObject.ListRows(Selection.ListObject.DataBodyRange.Rows.Count).Range.Cells(1, 1).Address = Selection.Address)
Ck2 = (Selection.ListObject.ListRows(Selection.ListObject.DataBodyRange.Rows.Count).Range.Address = Target.Address)
On Error GoTo 0
If Ck1 And Ck2 Then
'what to do When new line is addedd
'what to do When new line is addedd
MsgBox ("NewLine manually Inserted")
End If
End Sub
The code has to be inserted into the vba code sheet of the working sheet:
-rightclick on the tab with the name of the sheet and chose View Code to open the vba editor at the right page
-copy the code and paste it into the right frame of the page
Return to Excel and test for the various conditions
Bye