Удаление пустых столбцов во всех таблицах документа

Добрый день,
Прошу помочь с написанием макроса:
В документе есть несколько таблиц.
В каждой таблице есть шапка, состоящая из одной строки.
В таблицах есть пустые столбцы: т.е. все ячейки данного столбца, кроме ячейки из первой строки (шапки) пустые.
Мне нужно удалить пустой столбец, включая ячейку из первой строки (шапки), из всех таблиц.