Power Query -Delete column substring corresponding to the text of another column (insensitive case)

 Table.ReplaceValue( #"Order col", each _ , null, 
 (col,row,z) => 
   let 
     lstPos = Text.PositionOf(col,row[Acronyme],Occurrence.All,Comparer.OrdinalIgnoreCase),
     lstPosReverse = List.Reverse(lstPos),
     //strNewValue = lstPosReverse 
     // strNewValue  =  Text.Length(row[Acronyme])
     //strNewValue  = List.Accumulate(lstPosReverse, 0, (s,c)=> s+1 )
     strNewValue  = List.Accumulate(lstPosReverse, col, (lstPosReverseParam,colParam)=> Text.RemoveRange(lstPosReverseParam,colParam,Text.Length(row[Acronyme]))) // see below explaination
   in strNewValue,
 {"Nom", "Volume", "Circulating Supply"})

Table.ReplaceValue( #"Order col", each _ , null,
...
{"Nom", "Volume", "Circulating Supply"})

Context parameters

• #"Order col" :1rst parameter of Table.ReplaceValue  =  Table source for processing 
  
• each _  : 2nd parameter of Table.ReplaceValue  =  indicates that Table.RepalceValue is applied on each record of #"Order col"
• {"Nom", "Volume", "Circulating Supply"}  : 5th parameter of Table.ReplaceValue  = list of columns which are processed

(col,row,z) => let
...
in

Declaration and appeal of the custom Replacing function with 3 parameters mandatory.

Table.ReplaceValue(table as table, oldValue as any, newValue as any, replacer as function, columnsToSearch as list) as table

Replacer function proposes 2 natives methods

Replacer.ReplaceText(text as nullable text, old as text, new as text) as nullable text

Replacer.ReplaceValue(value as any, old as any,new as any) as any

I assume that by declaring a custom replace function, a new method is added to the replacer object. But the construction of the replacer object, while allowing the addition of a new method, requires the new method to pass 3 parameters in order to be efficient. In fact, I've tested with 2 parameters: if there's no error, there's no action.

• Col  : 5th parameter of Table.ReplaceValue : {"Nom", "Volume", "Circulating Supply"}
• row : 2nd parameter of Table.ReplaceValue : each _
• z  : 3rd parameter of of Table.ReplaceValue : null
• ( )=> : Define and call the new method which is call for each row (param 2nd) and columns (param. 5th)
• let ... in : For assigning  a result to a declared variables
• lstPos, lstPosReverse, strNewValue : declared variables
  
  **************************************************************************************************************

List.Accumulate(lstPosReverse, col, (lstPosReverseParam,colParam)=> Text.RemoveRange(lstPosReverseParam,colParam,Text.Length(row[Acronyme])))

• List.Accumulate(lstPosReverse, col, (lstPosReverseParam,colParam)=> lines code)
  For the context of the current row (each _) and one field of param 5th of current row
• lstPosReverse : list of iteration position for the current context (see above)
• col : col of the current context
• (lstPosReverseParam,colParam)=> : Declaration and call of a custom Accumulate method for current context
• lstPosReverseParam : param 1st of List.Accumulate passed to the custom Accumulate method for current context
• colParam : param 2nd of List.Accumulate passed to the custom Accumulate method for current context
  Text.RemoveRange(lstPosReverseParam,colParam,Text.Length(row[Acronyme])) : custom Accumulate method
• List.Accumulate (..., ..., (lstPosReverseParam,colParam)=> ... ) : Accumulate method called for each list position for the context

considering the following context : Current line = index 105, field [Acronym] = “RON”, processed field [Name]

• “RON” exists twice in [Name] because PositionOf is declared case insensitive.
• List of indexes of each [Acronnym] value found in the [Name] field.
  a position  correspondS to the first letter position of the value of [Acronym] found in the target field; So lstPosReverse   is {5, 0} because modified with List.Reverse.
  To check Remove  "//"  and launch =>  strNewValue = lstPosReverse
• For the 1st loop {5}, the value of the context column [Name] = “RoninRON”, is passed as the initialization value for processing, which returns Ronin”.
• For the second loop {0}, the value to be processed = “Ronin” and return =  “in”.

Soory, initially I didnt catch you are searching for Case Insensitive solution, 
you can use this solution but it convert all your texts  into the lower cases

= Table.ReplaceValue(#"Changed Type",each [Acronyme],"",(a,b,c)=>Text.Replace(Text.Lower(a),Text.Lower(b),c),{"Volume","Nom","Circulating Supply"})

Thanks a lot dufoq3 for this very interesting solution.

the implementation result is an error

Expression.Error : Sorry... We were unable to convert the value"<html lang="en" dir=..." in type Table.
Détails :
    Value=<html lang="en" dir="ltr"><head><meta charset="utf-8"><meta http-equiv="x-ua-compatible" content="ie=edge"><meta name="viewport" content="width=device-width, initial-scale=1, maximum-scale=1, user-scalable=no, shrink-to-fit=no"><meta property="og:url" content="https://coinmarketcap.com/"><link rel="canonical" href="https://coinmarketcap.com/"><link rel="alternate" hreflang="ar" href="https://coinmarketcap.com/ar/?page=2"><link rel="alternate" hreflang="bg" href="https://coinmarketcap.com/bg/?page=2"><link rel="alternate" hreflang="cs" href="https://coinmarketcap.com/cs/?page=2"><link rel="alternate" hreflang="da" href="https://coinmarketcap.com/da/?page=2"><link rel="alternate" hreflang="de" href="https://coinmarketcap.com/de/?page=2"><link rel="alternate" hreflang="el" href="https://coinmarketcap.com/el/?page=2"><link rel="alternate" hreflang="en" href="https://coinmarketcap.com/?page=2"><link rel="alternate" hreflang="es" href="https://coinmarketcap.com/es/?page=2"><link rel="alternate" hreflang="fi" hre...
    Type=[Type