sub ksInsertColumn()
Dim objColumn as Object
objColumn =ThisComponent.Sheets(0).getColumns()
objColumn.insertByIndex(2,1) 
End Sub