根据excel最后一行中的日期进行合并

Question

我创建了一个简单的宏来将文件合并到另一个下面（即找到最后一行并粘贴下一个数据）

所以每天根据我需要合并数据的日期（一个月 - 30天）

我的文件保存在Path-I：\ Tracker \ 2017 \ May'17

中

文件名：Signoff Sheet_May_ 01 （根据日历日期每日5月01日）

文件路径和我创建的名为KPI的工作表的日期，并在那里输入了详细信息，

我的代码如下：

Sub KPI()

    Set thiwkb = ThisWorkbook.Worksheets("KPI")

    Mydate = thiwkb.Range("B2")

    Set destsheet = ThisWorkbook.Sheets("Production")

    Path = thiwkb.Range("B3") & "\" & "Signoff Sheet_" & Mydate & ".xlsx"

    Irow = 1
    Irow1 = 1
    Irow2 = 1

    Set wkb = Workbooks.Open(Path)
    wkb.Worksheets("Daily tracker").Range("A1").CurrentRegion.Copy Destination.Range("A" & Irow)

    wkb.Close False

    Irow = destsheet.Range("a1").CurrentRegion.Rows.Count + 1

End Sub

我的代码正在提取数据但是当我每天更改KPI表中的数据时，我需要根据日期合并或粘贴数据。