Macro para excluir colunas vazias

[SouzaVe]

Boa tarde,

 

tenho uma base com várias colunas e no meio dessas colunas com valores existem colunas totalmente em branco.

 

Como essa base é atualizada diariamente e é muito grande, preciso de uma macro que apague as colunas que estão em branco

 

Alguém pode me ajudar?

 

Obrigada

[Visitante]

Experimente

Sub ExcluiColunasVazias() Dim LC As Long  LC = ActiveSheet.UsedRange.Find(what:="*", SearchDirection:=xlPrevious, SearchOrder:=xlByColumns).Column  Range("A1", Cells(1, LC)).SpecialCells(xlBlanks).EntireColumn.DeleteEnd Sub