Excel VBA
Sub Step1() Sheets.Add(After:=ActiveSheet).Name = "NewDATASHEET" Sheets("DATASHEET").Select ActiveWindow.FreezePanes = True Columns("A:C").Select Application.CutCopyMode = False Selection.Copy Sheets("NewDATASHEET").Select ActiveSheet.Paste Range("D1").Select Application.CutCopyMode = False ActiveCell.FormulaR1C1 = "Title" Range("E1").Select ActiveCell.FormulaR1C1 = "Content" Range("D2").Select Application.CutCopyMode = False ActiveCell.FormulaR1C1 = "=CONCAT(RC[-3],""|"",RC[-2])" Selection.AutoFill Destination:=Range("D2:D8000") Range("E2").Select Application.CutCopyMode = False ActiveCell.FormulaR1C1 = "=StringToBase64(RC[-2])" Selection.AutoFill Destination:=Range("E2:E8000") ...