テーブルとペーストの最後の行を見つけよう

Question

私は実行しているテーブルをコピーしてテーブルに貼り付けます（表1）です。 コードを実行するたびにエラーが発生します。コードのエラーについてアドバイスできますか？

Sub CopyData1() 
Dim tbl As ListObject 
Set tbl = Sheets("Tracker").ListObjects("Table1") 
With Sheets("Sheet1") 
    .Range("C1").Copy Destination:=tbl.Range("C").Rows.Count.End(xlUp).Offset(1) 
End With 
End Sub 

マクロの目的は、次の使用可能な行に貼り付けることです。

Answer 1

以下のコード列「C」で、（「シート1」の）「表1」オブジェクト内の次の利用可能な行に「C1」を貼り付けます：

Option Explicit 

Sub CopyData1() 

Dim tbl As ListObject 
Dim LastRow As Long 

Set tbl = Sheets("Tracker").ListObjects("Table1") 
LastRow = tbl.Range.Rows.Count ' get number of rows in "Table1" object 

With Sheets("Sheet1") 
    .Range("C1").Copy Destination:=tbl.Range(LastRow, "C").Offset(1) 
End With 

End Sub