Формула в ячейке для подсчёта серий чисел в других ячейках

Private Preaddres
Private Sub Worksheet_Change(ByVal Target As Range)
n = [A3]
If Intersect(Range("A1:A2"), Target) Is Nothing Then Exit Sub
If Target.Address(0, 0) <> Preaddres Then n = 0
Preaddres = Target.Address(0, 0)
n = n + 1
[A3] = n
End Sub

Private Preaddres
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Range("A1:A2"), Target) Is Nothing Then Exit Sub
n = Target.Offset(2, 0)
If Target.Address(0, 0) <> Preaddres Then Range("A3:A4").Formula = "": n = 0
Preaddres = Target.Address(0, 0)
n = n + 1
Target.Offset(2, 0) = n
End Sub

Private Preaddres
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Range("B2:B101,D2:D101"), Target) Is Nothing Then Exit Sub
Application.EnableEvents = False
n = Target.Offset(0, 1)
If Target.Address(0, 0) <> Preaddres Then
    Range("C" & Target.Row).Formula = ""
    Range("E" & Target.Row).Formula = ""
    n = 0
End If
Preaddres = Target.Address(0, 0)
n = n + 1
Target.Offset(0, 1) = n
Application.EnableEvents = True
End Sub

If Intersect(Range("B2:B101,D2:D101,F2:F101"), Target) Is Nothing Then Exit Sub

Range("G" & Target.Row).Formula = ""

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Range("B2:B101,D2:D101"), Target) Is Nothing Then Exit Sub
Application.EnableEvents = False
n = IIf(Target.Offset(0, 1) = Empty, 0, Target.Offset(0, 1))
Range("C" & Target.Row) = ""
Range("E" & Target.Row) = ""
Target.Offset(0, 1) = n + 1
Application.EnableEvents = True
End Sub

n = Target.Offset(0, 1)

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Range("B2:B101,D2:D101,G2:G101,I2:I101,L2:L101,N2:N101,Q2:Q101,S2:S101"), Target) Is Nothing Then Exit Sub
Application.EnableEvents = False
n = Target.Offset(0, 1)
Range("C" & Target.Row).Offset(0, 5 * (Target.Column \ 5)) = ""
Range("E" & Target.Row).Offset(0, 5 * (Target.Column \ 5)) = ""
Target.Offset(0, 1) = n + 1
Application.EnableEvents = True
End Sub