If you are referring to the earlier macro, this addresses the workbook with the variable xlBook. To insert columns between A & B and between B & C locate the line
Code:
xlBook.sheets(1).Range("A1").PasteSpecial ("HTML")
and after it add the lines
Code:
xlBook.sheets(1).Range("B1").EntireColumn.Insert
xlBook.sheets(1).Range("D1").EntireColumn.Insert