每天更新信息，无需复制和粘贴

我有一个工作表，我每天更新，以便进行一些财务计算。 在这个工作表中有一个button，一旦点击就更新networking上的特定财务数据。 它带来了最后一次input的date和数据本身，例如31/01/2014 – > 10,27。 我想要做的是能够点击button并自动更新date和数据，而不必复制更新信息并将其粘贴到列表中。 我的想法是使用vlookup函数查找具有相应date的行，并粘贴由刷新button引入的值。 所以我尝试了下面的VBA脚本：

（代码“今天”是我给当天的date（2014年1月31日）的名称，“DI”是我想要更新的信息（上面10,27）

Sub Test1() Dim SearchDI As Range Set SearchDI = WorksheetFunction.VLookup(Range("Today"), Range("A:B"), 2, 0) Range("DI").Select Selection.Copy Range("SearchDI").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False End Sub 

它没有工作。

有谁知道我可以用什么方法在列表中查找当前date，并将值复制到旁边的单元格中？