ExcelテーブルVBA - 新しい最終行セル2をアクティブとして選択します。

Question

次のコードがあります。新しく作成された行は選択されません。

私は、テーブルに新しい最後の行を追加し、テーブルの最初のセルに新しい番号を生成するコードにリンクするADD NEWというマクロボタンがあります。それはアクティブとして設定されていないし、ユーザーを開始するために2番目のセルに行く... 私は何が欠けていますか？

Sub Add_New() 

Dim the_sheet As Worksheet 
Dim the_table As ListObject 
Dim table_object_row As ListRow 
Dim last_row As Long 

Set the_sheet = Sheets("Inventory") 
Set the_table = the_sheet.ListObjects("tbl_Data") 
Set table_object_row = the_table.ListRows.Add 
Set last_row = the_sheet.Range("C1`" & .Rows.Count).End(x1up).Row 
End Sub 

Answer 1

table_object_row.range.cells(1,1).select 

を追加してみ

last_row= Worksheets("Inventory").Range("A1" & Worksheets("Inventory").Rows.Count).End(xlUp).Row 

に

Set last_row = the_sheet.Range("C1`" & .Rows.Count).End(x1up).Row 

この行を修正、BTW

を（これらの行は、ワークシートの行と同じであると仮定すると）