excel跨表引用问题

cod18679056750

    有2个工作簿，第一个如下：

序号	数值
1	20
2	30
3	40

    希望第二个工作簿，可以跨表引用最后一个数值：40。

    第二天，数值更新，多了几个数字，如下：

序号	数值
1	20
2	30
3	40
4	25
5	35
6	55
7	75
8	65

    希望第二个工作簿，可以跨表引用最后一个数值：65。

    简单的说，第一个工作簿每天都在更新，第二个工作簿每天都能跨表引用最后一个数值。
第二个工作薄如下：

序号	数值
1	40
2	65

谢谢！

天下任我行1986

需要上传附件的少年。

天下任我行1986

Sub 引用工作簿()
Dim wb As Workbook, rg As Range, rng As Range, wb1 As Workbook
Set wb1 = ThisWorkbook
Set rng = wb1.Sheets("sheet1").Cells(Rows.Count, 1).End(xlUp).Offset(1, 0)
Set wb = Workbooks.Open(ThisWorkbook.Path & "\数据源工作簿.xlsx")
wb.Sheets("sheet1").Select
Set rg = Cells(Rows.Count, 1).End(xlUp)
wb.Sheets("sheet1").Range(rg, rg.Offset(0, 1)).Copy rng
wb.Close True
End Sub

天下任我行1986

附件上传，供参考