vlookup with variables

new to vba and trying to get a vlookup to run through a list. can anyone help with this code?

Dim i As Integer
dim y as inte
For i = 1 To 300
Worksheets("sheet4").Activate

Range(i, 1).Value = Application.WorksheetFunction.Lookup(Worksheets("sheet3").Cells(i, 2), Worksheets("Sheet2").Range("a1:z400"), 3)

End

Next

end sub

Hello Amar. Can u please

Hello Amar.
Can u please attatch file..to provide solution. ..Thankyou