H4单元格一直报错是什么原因？变成其他的就不报错，求老师指导

Private Sub CommandButton1_Click()
Dim i As Integer
Dim data(7) As Variant
Set selectsheet = Application.ThisWorkbook.Worksheets("查询页面")
Set svsheet = Application.ThisWorkbook.Worksheets("商品数据")
For i = 1 To 7
data(i) = Application.WorksheetFunction.VLookup(selectsheet.Range("H4"), svsheet.Range("A2:G500"), i, 1)
Next
If IsEmpty(selectsheet.Range("H4")) Then (这里变成其他单元格不报错，变成H4就报错)
Vbokey = MsgBox("单元格A2中必须输入姓名!", vbOKCancel)
Else
MsgBox ("数据录入!")
selectsheet.Range("J4") = data(2)
selectsheet.Range("L4") = data(3)
selectsheet.Range("N4") = data(4)
selectsheet.Range("H6") = data(5)
selectsheet.Range("J6") = data(6)
selectsheet.Range("L6") = data(7)
End If
End Sub