第二次计算时出现错误13，但第一次计算时未出现错误13

Question

先生，

我编写了以下代码进行计算：

Sub Calculation()
    Dim i As Long, x As Long, es As Integer, lrow As Long

    lrow = Sheets("Data").Cells(Rows.Count, 1).End(xlUp).Row

    Sheets("Data").Activate

    With Sheets("Data")
        .Range("L2:O" & lrow).ClearContents

        For x = 2 To lrow
        On Error GoTo ErrorHandler01
            .Range("M" & x) = .Range("E" & x) / .Range("E" & 2)
            .Range("L" & x) = .Range("E" & x) / .Range("H" & x)
        Check01:
        Next x

        ErrorHandler01: Range("L" & x) = ""
        GoTo Check01
    End With
End Sub

现在这显示Error 13。

对于第一行（使用＃N / A，第7行）也是如此，但不适用于第二行（即第9行）值。

对此需要帮助。

关于， 特警