洪学智的孙子都有谁:在Excel中用vb编辑宏有问题，请高手帮忙，系统显示没有End If块

Sub 货物入库()
Dim a As Long
Dim b As Integer '定义了两个变量
Sheets("商品入库已及查询").Select '----- 激活工作表"商品入库已及查询"
MsgBox "品名请勿空白！", vbOKOnly
Exit Sub
End If '如果没有输入品名，会弹出对话框并停止程序
If Trim(Cells(7, 2).Value) = "" Then
MsgBox "规格请勿空白！", vbOKOnly
Exit Sub
End If '如果没有输入规格，会弹出对话框并停止程序
If Trim(Cells(7, 3).Value) = "" Then
MsgBox "数量请勿空白！", vbOKOnly
Exit Sub
End If '如果没有输入数量，会弹出对话框并停止程序
If Trim(Cells(7, 4).Value) = "" Then
MsgBox "购入单价请勿空白！", vbOKOnly
Exit Sub
End If '如果没有输入购入单价，会弹出对话框并停止程序
If Trim(Cells(7, 5).Value) = "" Then
MsgBox "供应商请勿空白！", vbOKOnly
Exit Sub
End If '如果没有输入供应商，会弹出对话框并停止程序
If Trim(Cells(7, 6).Value) = "" Then
MsgBox "入库时间请勿空白！", vbOKOnly
Exit Sub
End If '如果没有输入入库时间，会弹出对话框并停止程序
a = Val(Shees1.Cells(1, 2).Value) '获取已经入库的总次数
For b = 1 To 6
Cells(a + 11, b).Value = Cells(7, b).Value
Next b '在存储区末尾开始记录新入库信息
End Sub