Have a look here:
WorksheetFunction.VLookup Method (Excel)[
^].
Dim dstWsh as Worksheet, srcWsh AS Worksheet
Set dstWsh = Thisworkbook.Worksheets("Sheet1")
Set srcWsh = Thisworkbook.Worksheets("Sheet2")
For i = 1 To 11
dstWsh.Range("D" & i).Value = WorksheetFunction.VLookup(dstWsh.Range("A2"), srcWsh.Range("A$1:G$14"), 7, False)
Next i