VLookUp関数のエラー解消方法について

前提・実現したいこと

初歩的な質問で恐れ入りますが、調べても解決できずアドバイス頂けると助かります。
VLookUp関数を使用したところ、以下のエラーメッセージが発生しました。
スペルミスは無いと思いますが、エラーの解消方法をご教示頂けますでしょうか。

発生している問題・エラーメッセージ

実行時エラー　438
オブジェクトは、このプロパティまたはメソッドをサポートしていません。

該当のソースコード

Sub test29_0122()
    Dim ws04, ws05 As Worksheet
    Dim nengetsu As Long 
    
    Set ws04 = worksheets("data_bill")
    Set ws05 = worksheets("実績_2020")
    
    nengetsu = Application.InputBox("年月を入力してください", Type:=1)
    
    'フィルターかける
    ws04.Range("A1").AutoFilter Field:=7, Criteria1:=nengetsu
    
    Dim rw As Long '最終行取得用
    rw = ws04.Cells(Rows.Count, 7).End(xlUp).Row
    
    Dim tbl As Range
    ws04.Activate
    Set tbl = ws04.Range(Cells(1, 9), Cells(rw, 25))

    ws05.Activate
    Dim i As Long
    i = 2

　　’ここでエラーが発生します。
    ws05("B2") = WorksheetFunction.VLookup(Cells(i, 1), tbl, 17, 0)

End Sub