难题！高手指点迷津这！

xumin5117

求高手解决此类问题！
主要是循环数组为空（无变量）时，循环就结束，有没有方法让循环运行完毕，详情见附件！

xumin5117

Sub Click()
On Error Resume Next
a = Sheets("产品号码").UsedRange.Columns.Count
c = Sheets("产品号码").UsedRange.Rows.Count
arr = Sheets("产品号码").Range("e2:" & Sheets("产品号码").Cells(c, a).Address(0, 0))
  For i = 1 To UBound(arr)
    For k = 1 To UBound(arr, 2)
    arr1 = Split(arr(i, k), "-")
    If arr1(0) = Sheets(2).[a1] And Sheets(2).[b1] <= arr1(2) And Sheets(2).[b1] >= arr1(1) Then
    GoTo 100
    Exit For
    Else
    MsgBox "没有您要查寻的值，请检查后重新输入"
    GoTo 200
    End If
  Next
Next
100:
Sheets("产品号码").Activate
Sheets("产品号码").Cells(i + 1, k + 4).Select
200:
End Sub