let
Source = Excel.CurrentWorkbook(){[Name="Table1"]}[Content],
#"Changed Type" = Table.TransformColumnTypes(Source,{{"Date", type date}, {"Description", type text}, {"Amt", Int64.Type}, {"Type", type text}}),
#"Removed Columns" = Table.RemoveColumns(#"Changed Type",{"Date"}),
#"Pivoted Column" = Table.Pivot(#"Removed Columns", List.Distinct(#"Removed Columns"[Type]), "Type", "Amt", List.Sum),
#"Added Custom" = Table.AddColumn(#"Pivoted Column", "Claim -CR", each [Claim]-[Cr])
in
#"Added Custom"