This is one solution that requires the use of unpivot then pivot again. I would like to see if someone comes up with different solution.
let
Source = #"Daily",
#"Unpivoted Columns" = Table.UnpivotOtherColumns(Source, {"Collection Date", "Eomonth"}, "Attribute", "Value"),
#"Grouped Rows" = Table.Group(#"Unpivoted Columns", {"Eomonth", "Attribute"}, {<!-- -->{"Value", each List.Sum([Value]), type number}}),
#"Pivoted Column" = Table.Pivot(#"Grouped Rows", List.Distinct(#"Grouped Rows"[Attribute]), "Attribute", "Value")
in
#"Pivoted Column"
This works because the table Slicer is converted to a list then that list is used for headers by the code = Table.SelectColumns(#"Changed Type", List.Combine({LeftColumns,Slicer})).