Umiestni nasledujúci kód do štandardného modulu.
Makro spúšťaj na hárku, kde máš "zdroj" ( t.j. údaje v stĺpcoch D - AH, riadkoch 5 - 544)

Sub SumStredisk()
    
    Application.ScreenUpdating = False
    Application.DisplayAlerts = False
    On Error Resume Next
    
    NazZdroja = ActiveSheet.Name
    Sheets("Střediska").Delete
    Sheets.Add
    ActiveSheet.Name = "Střediska"
    Sheets("Střediska").Cells(1, 1) = "Seznam středisk"
    
    k = 2
    For i = 5 To 544 Step 11
        For j = 4 To 34
            If Sheets(NazZdroja).Cells(i, j) = "" Then GoTo dalej
            Sheets("Střediska").Cells(k, 1) = Sheets(NazZdroja).Cells(i, j)
            k = k + 1
dalej:
        Next j
    Next i
    
    With Sheets("Střediska").Columns("A:A")
        .RemoveDuplicates Columns:=1, Header:=xlYes
        .EntireColumn.AutoFit
        .Range("A1").Select
    End With

    MsgBox "Počet středisk: " & Sheets("Střediska").Range("A" & Sheets("Střediska").Rows.Count).End(xlUp).Row - 1, vbInformation, "Zpracování ukončené"

End Sub

Pozor, opätovným spustením sa "sumarizujúci" hárok maže a vytvára sa nanovo!
Ukážka priložená...