VBA with sum and vlook up

[powelly04]

Sheet 1

A1 has a name (Bob)
A2 has a value (10)

Button 1


Sheet 2

John 0
Dave 0
Ben 0
Bob 0

I need it so when someone clicks button 1 its added the value of cell a2 in sheet 1 to the next collum to the right of the name in collum a1 in sheet 1.

example if they clicked now sheet 2 would then look liek this:-

John 0
Dave 0
Ben 0
Bob 10

clicked it again BOB would go to 20 and so on

I got to this but now getting an error:-

Private Sub CommandButton1_Click()

Application.WorksheetFunction.VLookup("sheet2!e11", "Time!a2:b99", 2, "Calculator!e11") = Application.WorksheetFunction.VLookup("sheet2!e11", "Time!a2:b99", 2, "Calculator!e11") + Range("g8")

End Sub