Combine tables in Power Query

The title is not very accurate, but I'm looking for help to merge (or append) two (or more) tables from Power Query.
In the attached example, I have a range of from and to inputs of various information (in this case, for a railway example project rail- and superstructure types).
I have imported both tables into Power Query, and tried to both combine and append them, but the results are not exactly what I'm looking form

I've added a tab called "Goal" to show what I'm trying to accomplish.
I will need to add additional information in the same type of formatting at a later stage, so anything that automates this process is greatly appreciated!

Hopefully someone will be able to help.


Best Regards,

I see that I made a mistake in the "Goal" tab, by having cell A8 = 0, and not a reference back.
How do I get rid of this in the script?

change

#"Update_Fm" = Table.ReplaceValue(#"Prior", each [#"From [St.]"], each if [#"From [St.]"] = 0 then 0 else if [Prior] > [#"From [St.]"] then [Prior] else [#"From [St.]"], Replacer.ReplaceValue, {"From [St.]"}),

to

#"Update_Fm" = Table.ReplaceValue(#"Prior", each [#"From [St.]"], each if [Prior] > [#"From [St.]"] then [Prior] else [#"From [St.]"], Replacer.ReplaceValue, {"From [St.]"}),

Rename Alignment

let
    Source = Excel.CurrentWorkbook(){[Name="Alignment"]}[Content],
    #"Changed Type" = Table.TransformColumnTypes(Source,{{"From [St.]", type number}, {"To [St.]", type number}, {"Length [m]", type number}, {"Track type", type text}}),
    #"Renamed Columns" = Table.RenameColumns(#"Changed Type",{{"Track type", "Alignment"}})
in
    #"Renamed Columns"

and Result

let
    Source = Table.Combine({ Types, Rails, Alignment, Sections}),
    SortedRows = Table.Sort(Source,{{"To [St.]", Order.Ascending}, {"Section", Order.Ascending}}),
    RemovedLength = Table.RemoveColumns(SortedRows,{"Length [m]"}),
    ToColumn = Table.ToColumns(RemovedLength),
    NewFrom = Table.FromColumns({List.Range({0}&ToColumn{1},0,Table.RowCount(RemovedLength))}& List.Skip(ToColumn,1),Table.ColumnNames(RemovedLength)),
    AddedLength = Table.AddColumn(NewFrom, "Length [m]", each [#"To [St.]"]-[#"From [St.]"]),
    FilledUp = Table.FillUp(AddedLength,{"Track type", "Rail type", "Alignment", "Section"}),
    ReorderedColumns = Table.ReorderColumns(FilledUp,{"Section", "From [St.]", "To [St.]", "Length [m]", "Track type", "Rail type", "Alignment"})
in
    ReorderedColumns