let
 name = [Name],
 name1 = Text.Replace(name, ",", ""),
 name2 = Text.Replace(name1, " - ", ""),
 name3 = if Text.Contains(name2, [Color]) then
          Text.Replace(name2, [Color], "")
         else name2,
 name4 = if [Size] <> null then
          Text.Start(name3, Text.Length(name3)-3) &                  Text.Replace(Text.End(name3, 3), [Size], "")
         else name3,
 name5 = if [Color] = null and [Size] = null then                      [Name]
         else Text.Trim(name4),
 name6 = if Text.Upper(Text.Start(name5, 3)) = Text.Start              (name5, 3) and Text.Start(name5,1) = Text.Trim             ([Class]) then
            Text.ReplaceRange(name5, 0, 3, "")
         else name5
in
name6