Vba 查找表中的最后一行并粘贴

我有一个正在运行的代码，可以复制并粘贴到tabele（表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

宏的目标是粘贴到下一个可用行中

下面的代码将“C1”粘贴到“Table1”对象（在“Sheet1”中）“C”列的下一行：

下面的代码将“C1”粘贴到“Table1”对象（在“Sheet1”中）“C”列的下一行：

---

我努力将数据正确地添加到表的第一个空行，或者在表为空时添加数据。找到了一个适用于两种情况的简单解决方案：

LastRow = yoursheet.ListObjects("yourtable").Range.Columns(1).Cells.Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Offset(1, 0).Row

---

我努力将数据正确地添加到表的第一个空行，或者在表为空时添加数据。找到了一个适用于两种情况的简单解决方案：

LastRow = yoursheet.ListObjects("yourtable").Range.Columns(1).Cells.Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Offset(1, 0).Row

---

“C”是表中列的名称，还是仅仅是列的字母？@Glitch\u Doctor偏移量的两个参数实际上都是可选的。@Glitch\u Doctor第3列是列的名称好吧，我的坏习惯是浪费字符时间，然后哈哈。。。注释已删除。“C”是表中列的名称，还是仅仅是列的字母？@Glitch\u Doctor偏移量的两个参数实际上都是可选的。@Glitch\u Doctor第3列是列的名称好吧，我的坏消息一直在浪费字符，然后哈哈。。。注释已删除。这将粘贴在表的末尾，而不是下一个可用行。除非我在做什么wrong@James为什么表格中有空行？@ShaiRado非常感谢问题是我的表格中也有空行这假设表格的第一行是第1行，如果表格不在工作表的顶部，您需要添加一个offset@Yuca为什么这是一个假设？如果你读了这篇文章，你可以在他的代码中看到表格的开始。大约99.99%的时间，表（ListObjects）将位于第一行。这将粘贴在表的末尾，而不是下一可用行。除非我在做什么wrong@James为什么表格中有空行？@ShaiRado非常感谢问题是我的表格中也有空行这假设表格的第一行是第1行，如果表格不在工作表的顶部，您需要添加一个offset@Yuca为什么这是一个假设？如果你读了这篇文章，你可以在他的代码中看到表格的开始。大约99.99%的时间，表（ListObjects）将位于第一行。