mysheet.Columns("B:B").Insert Shift:=xlToRight
    mysheet.Columns("A:A").TextToColumns Destination:=mysheet.Range("A1"), DataType:=xlDelimited, Other:=True, OtherChar:=":"