VBA按名称查找表，然后粘贴到下一个空行

Question

我有一张包含多张纸的工作簿。

我正在尝试从名为＆＃34; A＆＃34;的工作表中复制单元格D4中的数据，在＆＃34;工作表1和＃34;中找到一个表格。与表格中的C4中的数据相匹配＆＃34; A＆＃34;然后过去到该表中的下一个空行。

到目前为止，我有这个：

Range("D4").Select
Selection.Copy
Sheets("Sheet 1").Select
Range("A" & Rows.Count).End(xlUp).Offset(1).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
    :=False, Transpose:=False

哪种方法适用于将数据粘贴到A列的下一个空行，但我无法根据表格中的C4中的数据找出正确的列＃34; A＆＃34;

我有这个

Application.Match(C4,Sheet1!1:1,0)

用于匹配数据，但我无法确定如何将其纳入代码？

非常感谢任何帮助。