Sub tt()
    Dim c As Range, t$
    With CreateObject("scripting.dictionary")
        .comparemode = 1

        For Each c In Sheets("Данные").[a1].CurrentRegion.Offset(1).Columns(1).Cells
            If c.Value <> "Товар" Then
                If Left(c, 1) <> " " Then
                    t = c.Value
                Else
                    .Item(t & "|" & c.Value) = .Item(t & "|" & c.Value) + c.Offset(, 1)
                End If
            End If
        Next

        For Each c In Sheets("Аналитика").[b3:f10]
            t = Sheets("Аналитика").Cells(2, c.Column) & "|" & Sheets("Аналитика").Cells(c.Row, 1)
            c.Value = .Item(t)
        Next
    End With
End Sub