let
Source = Excel.CurrentWorkbook(){[Name="Table1"]}[Content],
ReplacedValue = Table.ReplaceValue(Source," and ",",",Replacer.ReplaceText,{"Input"}),
SplitColumns = Table.SplitColumn(ReplacedValue, "Input", Splitter.SplitTextByDelimiter(",", QuoteStyle.Csv), {"Input.1", "Input.2", "Input.3", "Input.4"}),
Result = Table.TransformColumnTypes(SplitColumns,{{"Input.1", type text}, {"Input.2", type text}, {"Input.3", type text}, {"Input.4", type text}})
in
Result