Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Me.ListObjects(1).ListColumns(2).DataBodyRange) Is Nothing Then
        With Me.ListObjects(1).DataBodyRange
            u_01 = Selection.Row '1-я строка вставки
            u_02 = Cells(Selection.Count, 1).Row 'кол-во строк
            u_03 = u_01 + u_02 - 1 'послед. строка вставки
            Application.EnableEvents = False 'отключаем обработку событий
            Application.ScreenUpdating = False 'не скакать перед глазами
            Rows(u_03 + 1 & ":" & u_03 + 1).Insert Shift:=xlDown 'вставляем строку
            For Each c In Range("b" & u_01 & ":b" & u_03) 'проходимся по вставл. ячейкам
                u_04 = c.Value 'значение ячейки
                u_05 = Application.Substitute(u_04, ",", "\", 2) 'замена 2-й запятой слешем
                u_06 = Application.Search("\", u_05) 'ищем слеш
                u_07 = Application.IsNumber(u_06) 'проверка (слеш найден)
                If u_07 Then 'если слеш найден, тогда:
                    u_08 = Left(u_04, u_06 - 1) & "." 'значение ячейки до 2-й запятой
                    u_09 = Application.Match(u_08, Range("b:b"), 0) 'ищем итоговую строку
                    u_10 = Application.IsNA(u_09) 'проверка (строка не найдена)
                    If u_10 Then 'если строка не найдена, тогда:
                        Rows(u_03 + 1 & ":" & u_03 + 1).Insert Shift:=xlDown 'вставляем строку
                        Range("b" & u_03 + 1) = u_08 'записываем итоговое значение
                        Range("c" & u_03 + 1).FormulaR1C1 = "=SUM(INDEX(C,MATCH(""яя"",R1C[-2]:INDEX(C[-2],ROW()-1))+1):INDEX(C,ROW()-1))"
                    End If
                End If
            Next
            Set r = Range(.Cells(2), .Cells(.Cells.Count)) 'сортируем
            r.Sort Key1:=r(1)
            Application.EnableEvents = True 'включаем обработку событий
            Application.ScreenUpdating = True 'скакать перед глазами
        End With
    End If
End Sub