VBA: Insert row before the last row of a table

[Usually_Wrong]

Greetings,

I have a table ("Position") that resides within a named range ("Test"). Currently, the named range is for A1:G9, or the green border surrounding the table.

I have the code that inserts a row to the table; however, my issue is that this doesn't make the named range dynamic. I am hoping to modify this code to not insert on row 9 (bottom of the table), but above row 8 instead so the named range expands with the row insertions.

Sub InserttoTable()
     Dim oSheetName As Worksheet
     Dim sTableName As String
     Dim loTable As ListObject

     sTableName = "Position"

     Set oSheetName = Sheets("Sheet1")

     Set loTable = oSheetName.ListObjects(sTableName)

     loTable.ListRows.Add
End Sub

Any help is appreciated. Thank you!

 

[EXCEL MAX]

Count the number of rows in the table "Position" before adding.
Replace last line of code with this.

vLRC = oSheetName.ListObjects(sTableName).ListRows.Count
oSheetName.Rows(vLRC + 2).Insert