Problem with extracting multiple substrings from a text field

Hi a_m_wood, check this

Result

let
    Source = Table.FromRows(Json.Document(Binary.Decompress(Binary.FromText("i45WCknNLchJVQguUQhOTVcwNFDQVQg3NDExA9JBIW6G5uYmCpWpJQol+QpJqQoFRZnJqSlKsTrRSk6picn5eQpBKcj6zC0twJIhqcUlCrrhhkbGJgqJSckpIElTM3MLhdS09Ayl2FgA", BinaryEncoding.Base64), Compression.Deflate)), let _t = ((type nullable text) meta [Serialized.Text = true]) in type table [Name = _t]),
    Ad_ExtractedW = Table.AddColumn(Source, "Extracted W", each
        [ a = List.Combine(List.Transform({"- W", "-W"}, (x)=> Text.PositionOf([Name], x, Occurrence.All))),
          b = List.Transform(a, (x)=> Text.BeforeDelimiter(Text.Trim(Text.Range([Name], x), {" ", "-"}), " "))
        ][b], type list)
in
    Ad_ExtractedW