Автозаполнение следующего номера в строке 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

Может кто-нибудь помочь исправить ошибку?

спасибо!