title: Application Defined Error or Object error
body: <p>Could any one take a look at my code and help me find out which I did wrong? Thanks in advance!</p>
  
  <pre><code>Sub Price()
  
  Dim ilastrow As Long
  
  Dim i As Long
  
  ilastrow = Sheets(2).Cells(Rows.Count, 4).End(xlUp).Row
  
  For i = ilastrow To 2 Step -1
  
  Sheets(2).Cells(i, 10).Value = Application.WorksheetFunction.IfError(Application.WorksheetFunction.VLookup(Sheets(2).Cells(i, 4).Value, Sheets(1).Range("D2:F520"), 2, False), 0)
  
  Sheets(2).Cells(i, 11).Value = Application.WorksheetFunction.IfError(Application.WorksheetFunction.VLookup(Sheets(2).Cells(i, 4).Value, Sheets(1).Range("D2:F520"), 3, False), 0)
  
  Next i
  
  End Sub
  </code></pre>