Если я понимаю ваш вопрос, вам сначала нужно показать все столбцы:
ActiveSheet.Columns.Hidden = False
Далее вы хотите скрыть определенные столбцы:
ActiveSheet.Cells(1, ColumnToHide).Columns.Hidden = True
Однако!Если у вас есть объединенные ячейки на рабочем листе, это может завершиться ошибкой, поскольку вы не можете скрыть часть объединенной ячейки.