Vlookup VBA code error handling

[haf19]

i have a code that vlookups an ID number and brings in a name from a different sheet.
However some of the rows are blank, as in no ID number - or they have two IDs in one cell

How do i insert an error handing code to skip blank rows or unrecognised values?

this is my current code.
Sub vlookup()

For i = 2 to 300

Sheets("test1").Cells(i,34).Value=Application.WorksheetsFunction.vlookup _
(Sheets("test1").Cells(i,33).Value,Sheets("test2").range("A:H"),7, False)

Next
End Sub

 

[Fluff]

Hi & welcome to MrExcel.
How about

Sub vlookup()
   Dim Res As Variant
   Dim i As Long
   
   For i = 2 To 300
      Res = Application.vlookup(Sheets("test1").Cells(i, 33).Value, Sheets("test2").Range("A:H"), 7, False)
      If Not IsError(Res) Then Sheets("test1").Cells(i, 34).Value = Res
   Next
End Sub

 

[haf19]

That worked like flawlessly. Thank you!! ?

 

[Fluff]

You're welcome & thanks for the feedback.