Option Explicit
Sub LetzteZeileDesListObjects()
Dim lob As ListObject
Set lob = ActiveSheet.ListObjects(1)
With lob.DataBodyRange
.Cells(.Rows.Count, 1).Select
End With
End Sub
Sub neueZeileHinzufuegen()
Dim lob As ListObject
Dim neueZeile As ListRow
Set lob = ActiveSheet.ListObjects(1)
Set neueZeile = lob.ListRows.Add
With neueZeile
.Range(1, 1).Value = "foobar"
End With
End Sub