用另一张纸上的数据动态填充下一个空行

Question

预先感谢阅读本文的任何人花时间提出任何建议！我尝试了在这里找到的其他示例，但它们似乎都没有起作用，因此感谢您的任何建议！

所以基本上我有3张纸。在工作表1中，我将手动将数据输入到下一个空行（数据从A列到U列）。工作表2链接到工作表1的方式是：如果我选择一行并自动向下填充到下一个工作表，它将显示工作表1中的数据（并且还会增加每个单元格中的值以说明通货膨胀）。

因此，基本上是在将数据输入到工作表1的新行之后，我想运行一个宏，该宏随后将把工作表2的最后一行动态自动填充到下一个空行。我也希望从工作表2到工作表3重复进行此操作。

例如，如果工作表1和2都具有向下第35行的数据，我希望能够在第36行中手动输入数据，然后我的宏将在工作表2上自动填充第35至36行。

我到目前为止编写的代码如下。为了说明，base / basee和home / homee是我命名的单元格，用于比较if / then语句的特定列中的值。我在尝试尝试自动填充到下一个单元格偏移（1,0）]的最后一行上不断收到错误1004，

Sub PracticeTool()

   Dim current1 As Integer
   Dim current2 As Integer

     Worksheets("City1").Select
     Application.Goto Reference:="base"
     Selection.End(xlDown).Select
     Selection.End(xlDown).Select

     current1 = Selection

     Worksheets("Inflation").Select
     Application.Goto Reference:="basee"
     Selection.End(xlDown).Select
     Selection.End(xlDown).Select

     current2 = Selection

If (current1 <> current2) Then

    Application.Goto Reference:="homee"
    Selection.End(xlDown).Select
    Selection.End(xlDown).Select
    Selection.End(xlDown).Select
    Range(Selection, Selection.End(xlToRight)).Select
    Selection.AutoFill Destination:=Selection.Offset(1, 0), Type:=xlFillDefault



End If

End Sub
第1表样本数据：https://i.stack.imgur.com/pTFo5.png
表2样本数据：https://i.stack.imgur.com/kufrV.png

预先感谢阅读本文的任何人花时间提出任何建议！我尝试了在这里找到的其他示例，但它们似乎都没有起作用，因此感谢任何...

Answer 1

我没有得到您想要比较的确切信息，但我认为您已经接近了。

此代码应满足要求。