Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("Таблица1")) Is Nothing Then
        x = Cells(1, Columns.Count).End(xlToLeft).Column
        For i = 2 To x
            If Cells(Target.Row, i) <> "" Then
                y = y & " " & Cells(1, i)
            End If
        Next
    Cells(Target.Row, 8) = Trim(y)
    End If
End Sub

let
    Source = Excel.CurrentWorkbook(){[Name="Таблица1"]}[Content],
    #"Unpivoted Other Columns" = Table.UnpivotOtherColumns(Source, {"Столбец1"}, "Атрибут", "Значение"),
    #"Grouped Rows" = Table.Group(#"Unpivoted Other Columns", {"Столбец1", "Значение"}, {{"a", each Text.Combine([Атрибут]," ")}})[a]
in
    #"Grouped Rows"

=ЕСЛИОШИБКА(ИНДЕКС($B$1:$F$1;0;ПОИСКПОЗ(1;ИНДЕКС((СЧЁТЕСЛИ($G2:G2;$B$1:$F$1)=0)/($B2:$F2<>"");0);0));"")