[Spirosgr]

Βάλε στην θέση του παλιού κώδικα, αυτό...

Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, Columns(8)) Is Nothing Then Exit Sub

    Dim LRow As Long, i As Long
    LRow = Sh1.Cells(Rows.Count, 1).End(xlUp).Row

    For i = 2 To LRow - 1
        Sh1.Cells(i, 1).Value = Cells(i, 1).Row - 1
    Next i

    Sh1.Cells(LRow, 2).Activate
End Sub

Η κίνηση μέσα στον πίνακα, με Tab.
Φτάνοντας στην header7, με tab αλλάζει 1 γραμμή.
Η διαγραφή γραμμών, με τον τρόπο της εικόνας (εφ' όσον είναι πίνακας)
Μετά την διαγραφή γραμμής/ών αναπροσαρμόζεται η αρίθμηση...