+
[vba]Код
If Not Intersect(Target, Me.ListObjects(1).ListColumns(3).DataBodyRange) Is Nothing Then
Application.EnableEvents = False 'отключаем обработку событий
Application.ScreenUpdating = False 'не скакать перед глазами
u_11 = Target.Row
u_12 = Range("a3").End(xlDown).Row
u_13 = Application.Match("*", Range("a" & u_11 & ":a" & u_12), 0)
u_14 = u_11 + u_13 - 1 'строка суммы
u_15 = Application.Match("яя", Range("a3:a" & u_11), 1)
u_16 = u_15 + 3
If u_14 <> u_12 Then
Range("c" & u_14) = Application.Sum(Range("c" & u_16 & ":c" & u_14 - 1))
End If
Application.EnableEvents = True 'включаем обработку событий
Application.ScreenUpdating = True 'скакать перед глазами
End If
[/vba]