let
    from = Table.Skip(Table.PromoteHeaders(Excel.CurrentWorkbook(){[Name="data"]}[Content]),1),
    nms = List.Select(Table.ColumnNames(from), (x)=> not Text.Contains(x, "Column")),
    zip = List.Buffer(List.Zip({nms})),
    lst = Table.ToList(from,(x)=>x),
    f = (x)=> List.Transform(List.Zip({zip, List.Split(List.Skip(x),2)}), List.Combine),
    g = (x,y)=> {List.First(x)}&y,
    tr = List.TransformMany(lst,f,g),
    nms1 = {"Товар", "Вид платежа","Дата", "Сумма"}, 
    lst_typ = {{"Товар",Text.Type}, {"Вид платежа",Text.Type},{"Дата",Date.Type}, {"Сумма",Number.Type}},
    to = Table.FromList(tr, (x)=> x, nms1),
    typ = Table.TransformColumnTypes(to,lst_typ)
in
    typ