This assumes your actual layout is consistent with your example.
Sub test()
    Dim c As Range
    Dim i As Long, j As Long, Col As Long
    Dim x As String, y as String

    Application.ScreenUpdating = False
    For Col = 1 To 15 Step 7
        Set c = Cells(1, Col).End(xlDown)
        Set c = Range(c, c.End(xlDown)).Resize(, 7)
        For i = 1 To c.Rows.Count
            x = Application.Text(Application.Sum(Range(c(i, 3), c(i, 7))), "000")
            y = ""
            For j = 3 To 7
                y = y & c(i, j)
            Next j
            c(i, 2) = x & "-" & y
        Next i
        c.Sort c.Columns(2), xlDescending
        c.Columns(2).ClearContents
    Next Col
     Application.ScreenUpdating = True
End Sub