Макрос вставки столбцов в нескольких таблицах

[Vladimir1959]

Уважаемые форумчане, прошу вашей помощи.
Я не программист и далеко не студент, но жизнь заставляет учиться чему то новому и поэтому для облегчения своей работы написал небольшую программку. Что мне было не ясно я всегда к спецам обращался.
Суть вопроса. В данной программе очень много страниц с таблицами, я их сделал по формату одинаковыми. Иногда необходимо вставить строки и столбцы. На форуме я нашел макрос для вставки столбца, но он вставляет столбец только в одну таблицу, а у меня их 7 только в формате столбцов и столько же в линейном формате.
Для вставки столбцов макрос такой:
If MsgBox("Добавить столбец?", vbQuestion + vbOKCancel) = vbOK Then
ActiveSheet.Unprotect
Dim nCol As Long
nCol = ActiveCell.Column
Columns(nCol).Insert
MsgBox "Столбец добавлен!", vbInformation, "Вставка столбцов"
End If
End Sub

Для удаления:
If MsgBox("Удалить столбец?", vbQuestion + vbOKCancel) = vbOK Then
Dim nCol As Long
nCol = ActiveCell.Column
Columns(nCol).Delete
MsgBox "Столбец удалён!", vbInformation, "Удаление столбцов"
End If
End Sub
Есть ли решение данного вопроса, можно ли с помощью макроса вставлять столбцы сразу во всех таблицах при нажатии кнопки в одной заданной главной таблице "Таблице заказов"
Файл с таблицами прикладываю.

[Gregor]

Выход - перебирать все листы книги и вызывать ваш макрос для каждого листа.
Перебор всех листов

Dim iWS As Worksheet
For Each iWS In ThisWorkbook.Worksheets
     тут вставляете ваш код по удалению/добавлению используя переменную iWS 
Next iWS