0

This macro not only sort, it also makes the SUM:
Private Sub Worksheet_Change(ByVal Target As Range)
Application.ScreenUpdating = False
Application.EnableEvents = False
Dim wkb As Workbook
Set wkb = ThisWorkbook
Dim wks, wks1 As Worksheet
Set wks = wkb.Worksheets("Sheet1"...