= let
    Source = Excel.CurrentWorkbook(){[Name="Таблица1"]}[Content],
    Split = Table.SplitColumn(Source, "Столбец1", 
        (a)=> let 
            a = Text.Replace(a," RUB",""),
            b = Table.AddIndexColumn(Table.FromColumns({Text.PositionOf(a,"   ",3)}),"i",0),
            c = Table.Group(b, {"Column1","i"}, {{"a", each List.Last(_[Column1])}},0,
                    (current,checked)=>Number.From((checked[Column1]-current[Column1])>3*(checked[i]-current[i]))
                )[a],
            d = Splitter.SplitTextByPositions({0}&c)(a), 
            e = List.Transform(d,each Text.Trim(_)),
            f = Text.Split(List.Last(e)," ")
        in List.RemoveLastN(e,1)&f
    )            
in
    Table.TransformColumnTypes(Split,{
        {"Столбец1.4", type number}, 
        {"Столбец1.5", type time}, 
        {"Столбец1.6", Int64.Type}, 
        {"Столбец1.7", type number}
    },"en-us")

Function LastWord(txt As String, Optional delim As String = " ", Optional n As Integer = 1) As String
    arFragments = Split(txt, delim)
    LastWord = arFragments(UBound(arFragments) - n + 1)
End Function