テーブルの2番目の行の上に行を追加するにはどうすればよいですか？ Excel VBA

Question

デフォルトでは、行は下に追加されます。上記の行を追加するためのSOの回答はたくさんありますが、ListObjectsは使用していません。私は助けに感謝します。

Private Sub CommandButton1_Click() 

Dim the_sheet As Worksheet 
Dim table_list_object As ListObject 
Dim table_object_row As ListRow 

Set the_sheet = Sheets("Decision Log") 
Set table_list_object = the_sheet.ListObjects(1) 
Set table_object_row = table_list_object.ListRows.Add(1) 

End Sub 

Answer 1

これはあなたのために働く必要があります。

Set table_object_row = table_list_object.ListRows(1).Range.EntireRow.Insert