Transfer data from column to line

See the working here - Open a blank query - Home - Advanced Editor - Remove everything from there and paste the below code to test (later on when you use the query on your dataset, you will have to change the source appropriately)

let
    Source = Table.FromRows(Json.Document(Binary.Decompress(Binary.FromText("TY1BDsAgCAT/wtkDCAY8tt8w/v8bQou1CUvIMtkdAy4oQC52qaFvcRnF1cJrCLO8XE2va3zPxP/OnFBnTJqexMgWxo+r6ZnuPrHdx+1wnGylf0p2zgU=", BinaryEncoding.Base64), Compression.Deflate)), let _t = ((type nullable text) meta [Serialized.Text = true]) in type table [CostCenter = _t, LineNo = _t, Period1 = _t, Amount = _t, Period2 = _t, Amount.1 = _t, Period3 = _t, Amount.2 = _t]),
    #"Changed Type" = Table.TransformColumnTypes(Source,{{"CostCenter", type text}, {"LineNo", Int64.Type}, {"Period1", Int64.Type}, {"Amount", Int64.Type}, {"Period2", Int64.Type}, {"Amount.1", Int64.Type}, {"Period3", Int64.Type}, {"Amount.2", Int64.Type}}),
    #"Unpivoted Other Columns" = Table.UnpivotOtherColumns(#"Changed Type", {"CostCenter", "LineNo"}, "Attribute", "Value"),
    #"Added Index" = Table.AddIndexColumn(#"Unpivoted Other Columns", "Index", 0, 1, Int64.Type),
    #"Added Custom" = Table.AddColumn(#"Added Index", "PeriodNo", each if Text.Contains([Attribute], "Period") then [Value] else null),
    #"Added Custom1" = Table.AddColumn(#"Added Custom", "PeriodAmount", each if Text.Contains([Attribute],"Period") then #"Added Custom"[Value]{[Index]+1} else null),
    #"Filtered Rows" = Table.SelectRows(#"Added Custom1", each ([PeriodNo] <> null)),
    #"Removed Columns" = Table.RemoveColumns(#"Filtered Rows",{"Index", "Attribute", "Value"})
in
    #"Removed Columns"