let
Source = Web.Page(Web.Contents("https://www.baseball-reference.com/leagues/MLB/2018-team-starting-lineups.shtml")),
Data1 = Source{1}[Data],
#"Changed Type" = Table.TransformColumnTypes(Data1,{{"Rk", Int64.Type}, {"Tm", type text}, {"C", type text}, {"1B", type text}, {"2B", type text}, {"3B", type text}, {"SS", type text}, {"LF", type text}, {"CF", type text}, {"RF", type text}, {"DH", type text}}),
#"Split Column by Delimiter" = Table.SplitColumn(#"Changed Type", "Tm", Splitter.SplitTextByEachDelimiter({" "}, QuoteStyle.Csv, false), {"Tm.1", "Tm.2"}),
#"Changed Type1" = Table.TransformColumnTypes(#"Split Column by Delimiter",{{"Tm.1", type text}, {"Tm.2", type text}}),
#"Renamed Columns" = Table.RenameColumns(#"Changed Type1",{{"Tm.1", "Team"}, {"Tm.2", "Record"}}),
#"Unpivoted Other Columns" = Table.UnpivotOtherColumns(#"Renamed Columns", {"Rk", "Team", "Record"}, "Attribute", "Value"),
#"Split Column by Delimiter1" = Table.SplitColumn(#"Unpivoted Other Columns", "Value", Splitter.SplitTextByDelimiter(" (", QuoteStyle.Csv), {"Value.1"}),
#"Changed Type2" = Table.TransformColumnTypes(#"Split Column by Delimiter1",{{"Value.1", type text}}),
#"Pivoted Column" = Table.Pivot(#"Changed Type2", List.Distinct(#"Changed Type2"[Attribute]), "Attribute", "Value.1")
in
#"Pivoted Column"