Extract Address from Cell Text

RecycleBin_Rob 

Updated a bit

as

let
    Source = Excel.CurrentWorkbook(){[Name="source"]}[Content],
    quadrants = {" NW", " NE", " SW", " SE", " N", " E", " S", " W"},

    fn = (str as text, add as text) =>
        [
            position = List.Max(
                List.Transform(
                    quadrants,
                    (q) => [ p=Text.PositionOf(
                        str,
                        q & add,
                        Occurrence.Last,
                        Comparer.OrdinalIgnoreCase
                    ),
                    e = if p < 0 then p else p + Text.Length(q)
                    ][e]
                )
            ),
            length =    if      position < 0
                        then    Text.Length(str)
                        else    position
    ][length],


    GetAddress = Table.AddColumn(
        Source,
        "Address",
        each [
            sepMid  = fn([Text], " "),
            sep     = fn([Text], "" ),
            sepEnd  = List.Min({ sepMid, sep }),
            address = Text.Start( [Text], sepEnd)
        ][address]
    )
in
    GetAddress