ak to môžeš robiť makrom tak tu je:

Sub Sucty()
PoslRiad = Range("N1").End(xlDown).Row
Range("AE2:AE" & PoslRiad).ClearContents
Range("AE2:AE" & PoslRiad).UnMerge
ActiveSheet.Sort.SortFields.Clear
ActiveSheet.Sort.SortFields.Add Key:=Range("N2:N" & PoslRiad), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
ActiveSheet.Sort.SetRange Range("A1:AR" & PoslRiad)
ActiveSheet.Sort.Header = xlYes
ActiveSheet.Sort.Apply
RiadMena = 2
DalMeno:
Zac = RiadMena
Sucet = Range("AD" & RiadMena)
Do Until Range("N" & RiadMena) <> Range("N" & RiadMena + 1)
Sucet = Sucet + Range("AD" & RiadMena + 1)
RiadMena = RiadMena + 1
Loop
Range("AE" & Zac & ":AE" & RiadMena).Merge
Range("AE" & Zac) = Sucet

If RiadMena < PoslRiad Then
RiadMena = RiadMena + 1
GoTo DalMeno
Else: MsgBox "Hotovo"
Exit Sub
End If
End Sub

Pracuje pre tebou danú tabuľku a je jedno, koľko tá tabuľka bude mať riadkov
Zoradí, zosúčtuje v skupinách a zlúči príslušné bunky