自动填充VBA行中的下一个数字

Question

我有下面的VBA，它正在填充行中的下一个数字。但这是一个问题，当它自动填充下一个数字时，我总是收到错误消息。数据在表中，我得到的错误是：

该表从第2行的一行开始。我在H2中输入数据，它填充得很好，但是显示一个错误，我对第3行做同样的操作，然后又好。然后执行第4行，然后公式开始复制第3行的值，然后输入第5行并复制第3行的值。我在I3中遇到的错误是

  

公式表示一个空单元格

我跟踪了它，它说H2为空（不是）。

代码：

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim rng As Range, cel As Range
    Set rng = Intersect(Target, Range([H2], Cells(Rows.Count, "H").End(xlUp)))

    If rng Is Nothing Then Exit Sub
    Application.EnableEvents = False

    For Each cel In rng.Offset(, 1)
        cel.FormulaR1C1 = "=IF(RC[-1]<>"""",R1C[6] & ""-"" &" & _
            "TEXT(COUNTA(R2C[-1]:RC[-1]),""0000"") & ""-"" & R1C[7],"""")"
    Next

    Application.EnableEvents = True
End Sub

有人可以帮助纠正错误吗？

谢谢！