.listrows.add not working

[ManUBlueJay]

I have been using this code for a couple years with no problem.
This past week it simply does not add a row in my table. No error message but the .listrows.add line is not happening.
Any help to why this is now happening or a fix would be appreciated.

Sub InsertNewLine()
    Dim Tbl As Object, i As Long
Set Tbl = ActiveSheet.ListObjects(1)    'first table on sheet
With Tbl
    If Not Intersect(Selection, .DataBodyRange) Is Nothing Then
        i = ActiveCell.Row - .HeaderRowRange.Row
        .ListRows.Add (i + 1)
        .DataBodyRange.Cells(i + 1, 3) = .DataBodyRange.Cells(i, 3)
        .DataBodyRange.Cells(i + 1, 5).Select

    End If
End With
End Sub

 

[JEC]

How about

Sub jec()
 Dim s
 With ActiveSheet.ListObjects(1)
   Set s = Selection
   If Not Intersect(s, .DataBodyRange) Is Nothing Then
      .ListRows.Add(s.Row).Range(1, 3) = .Range(s.Row, 3)
       Application.Goto .Range(s.Row + 1, 5)
   End If
 End With
End Sub

 

[ManUBlueJay]

It stills does not insert a new line in the table.
The rest of the code works as intended

 

[JEC]

Try to use the real name of the listobject

ActiveSheet.ListObjects("table name")

 

[Alex Blakenburg]

Do you by any chance have another table below that table and that other table is wider than your current table ?