Vba 将数据从工作表复制到其他工作簿

从上面的链接，我得到了我正在寻找的代码。 我的问题还没有解决

我对我的需求代码做了一些修改，但仍然得到了错误的结果。 下面提到的是我使用的代码

Sub TransferDataV2() 'transfer stuff from this workbook to workbook 2
    Dim strPath2 As String
    Dim wbkWorkbook1 As Workbook
    Dim wbkWorkbook2 As Workbook

    'define paths and filenames
    strPath2 = "E:\Purchase Register 2015-16.xlsx"

    'open files
    Set wbkWorkbook1 = ThisWorkbook '### changed this
    Set wbkWorkbook2 = Workbooks.Open(strPath2)

    'copy the values across
    '### change the sheet and range to what you need
    wbkWorkbook1.Activate
    Range("A2").Select
    Range(Selection, Selection.End(xlDown)).Select
    Range(Selection, Selection.End(xlToRight)).Select
    Selection.SpecialCells(xlCellTypeVisible).Select
    Selection.Copy
    wbkWorkbook2.Worksheets("Sheet1").Activate
    Range("A2").Select
    Range(Selection, Selection.End(xlDown)).Select
    ActiveCell.Offset(1).Select
    ActiveCell.PasteSpecial

    'close the workbook
    wbkWorkbook2.Close (True)
End Sub

现在，每当我更新此工作簿中的某些数据并尝试保存到另一个工作簿时，复制的数据将替换

strPath2=“C:\put in this.xlsx”

中已有的数据。 我要求的结果是复制的数据必须保存在放入此.xlsx的

中
但是在桌子的最后。相反，此代码复制数据并将其保存在
A2:G5
中。Kinldy建议
选择后。复制

尝试：

wbkWorkbook2.Worksheets("Sheet1").Cells(wbkWorkbook2.Worksheets("Sheet1").UsedRange.Row + 1, 1).PasteSpecial

'close the workbook
wbkWorkbook2.Close (True)