vba - VLOOKUPからセルに値を返す方法は?

Question

Vlookup の次のコードがあります。関数は正常に動作しますが、見つかった値はセルに表示されません。ただし、使用されている Msgbox 関数がある場合は、見つかった値が表示されます。問題は、VLOOKUP の結果がセルに取り込まれないということですか?

Sub Example_of_Vlookup()
Dim lookFor As Range
Dim rng As Range
Dim col As Integer
Dim found As String
Dim lastrowrange As Long
Dim area As Range
lastrowrange = [A65536].End(xlUp).Row
Set lookFor = Sheets("Sheet2").Range("b2")
Set rng = Sheets("Sheet2").Columns("t:u")
Set taxRange = Range("f2", Cells(lastrowrange, 22))
col = 2

On Error Resume Next
For i = 1 To lastrowrange
found = Application.VLookup("B2", "T1:U4", 2, True)
If IsError(found) Then
MsgBox lookFor & " not found"
Else

area.Cells(i, 2).Value = found
End If
Next i
On Error GoTo 0
End Sub