よろしくお願いします。年１のプレイヤーです。

商品コード（1000〜1000000）に対して、別シートにある原価を
vlookupで検索し、商品コードの右セルに代入しようとしているのですが
1000番台はエラーにならず、200000台からエラーになってしまいます
（1000番台の次は200000台にコードが飛びます）

「worksheetfunctionクラスのVlookupプロパティを取得できません」

なにが原因かわからなくてヘルプお願いします。

=================================================
For i = 2 To 最終行
原価 = 0
With Sheets("原価")
原価 = WorksheetFunction.VLookup(Cells(i, 商品コード列), .Range(.Cells(1, 1), .Cells(10, 1000)), 6, False)
End With
Next i