can't get a function to work

[rassten]

Hi,
I have made the following and I think my problem is in "Source = ..."
how to make it indifferent to the starting point and simply using another query

[/COLOR](Kolonne)=>
let
    Source = Excel.CurrentWorkbook(){[Name="Shop"]}[Content],
    Replaced_Value = Table.ReplaceValue(Source,"ø","ø",Replacer.ReplaceText,{Kolonne}),
    Replaced_Value1 = Table.ReplaceValue(Replaced_Value,"Ã¥","å",Replacer.ReplaceText,{Kolonne}),
    Replaced_Value2 = Table.ReplaceValue(Replaced_Value1,"Ø","Ø",Replacer.ReplaceText,{Kolonne}),
    Replaced_Value3 = Table.ReplaceValue(Replaced_Value2,"Å","Å",Replacer.ReplaceText,{Kolonne}),
    Replaced_Value4 = Table.ReplaceValue(Replaced_Value3,"Å","Ä",Replacer.ReplaceText,{Kolonne}),
    Replaced_Value5 = Table.ReplaceValue(Replaced_Value4,"ä","ä",Replacer.ReplaceText,{Kolonne}),
    Replaced_Value6 = Table.ReplaceValue(Replaced_Value5,"æ","æ",Replacer.ReplaceText,{Kolonne}),
    Replaced_Value7 = Table.ReplaceValue(Replaced_Value6,"Æ","Æ",Replacer.ReplaceText,{Kolonne}),
    Replaced_Value8 = Table.ReplaceValue(Replaced_Value7,"é","é",Replacer.ReplaceText,{Kolonne}),
    Replaced_Value9 = Table.ReplaceValue(Replaced_Value8,"½","½",Replacer.ReplaceText,{Kolonne}),
    Replaced_Value10 = Table.ReplaceValue(Replaced_Value9,"ö","ö",Replacer.ReplaceText,{Kolonne})
in
    Replaced_Value10

Best regards
Sten