Вставить колонку

[jojo]

Есть готовая таблица в Excel, нужно в середину вставить колонку.
Вот начал и не могу добить, поскажите пож-та


Private Sub CommandButton111_Click()

Name_book11 = Application.ActiveWorkbook.Name
FILE22 = ActiveWorkbook.Sheets("Загрузка").Cells(3, 5).Value
Workbooks.Open Filename:=FILE22
Name_book22 = Application.ActiveWorkbook.Name

' Добавим новые столбцы
Workbooks(Name_book11).Sheets("Данные").Activate
Workbooks(Name_book11).Sheets("Данные").Range("N1:N64000").Select
Selection.Copy
Workbooks(Name_book22).Sheets("Данные").Activate
Workbooks(Name_book22).Sheets("Данные").Columns("N:N").Select
Workbooks(Name_book22).Sheets("Данные").Range("N:N").Insert Shift:=xlToRight
Workbooks(Name_book22).Sheets("Данные").Range("N1:N64000").Select
ActiveSheet.Paste

MsgBox ("Колонка добавлена ! ")


End Sub

[jojo]

никто не знает чтоли?
хоть бы примерный код

[alibek]

Примерный код ты уже выложил.
Что не получается?

[jojo]

все не нада
сам разобрался ...
Private Sub CommandButton111_Click()

Name_book11 = Application.ActiveWorkbook.Name
FILE22 = ActiveWorkbook.Sheets("Загрузка").Cells(3, 5).Value
Workbooks.Open Filename:=FILE22
Name_book22 = Application.ActiveWorkbook.Name

' Добавим новые столбцы
Workbooks(Name_book11).Sheets("Данные").Activate
Workbooks(Name_book11).Sheets("Данные").Columns("N:N").Select
Selection.Copy
Workbooks(Name_book22).Sheets("Данные").Activate
Workbooks(Name_book22).Sheets("Данные").Columns("N:N").Select
Selection.EntireColumn.Insert
Workbooks(Name_book22).Sheets("Данные").Columns("N:N").Select
ActiveSheet.Paste

MsgBox ("Колонка добавлена ! ")


End Sub