【VBA】Excelテーブルの指定した位置に行を追加する

Public Sub AddTblRow( _
                                    ByVal ws As Worksheet, _
                                    ByVal pos As Long)
    ws.ListObjects(1).ListRows.Add pos
End Sub