最初から最後まで全部vbaでやるのが一番早い
worksheetfunctionも使わず、計算結果を直接セルにいれるだけだ

Sub foo()
Cells(2, 1) = WorksheetFunction.Sum(Cells(1, 1),cells(1,2))
End Sub

は、こうしてしまう

Sub foo()
Cells(2, 1) = Cells(1, 1)+cells(1,2)
End Sub

vlookup辺りだとめんどくさいけど、
毎日だか毎月だか数秒待つぐらいなら、一気に作ってしまいストレスのない環境で仕事するわ