Boa tarde MCordeiro,
Teste esse código:
Sub RemoverColunasEmBranco()
ThisWorkbook.Activate
'Pega o valor da última coluna preenchida para o contador
Dim UCol As Byte: UCol = Cells(1, 254).End(xlToLeft).Column
Dim Ulinha As Double
'Começa o Loop
Do While UCol >= 1
Ulinha = Cells(104857, UCol).End(xlUp).Offset(1, 0).Row
'Se Ulinha é 1 é porque não tem cabeçalho e por isso deleta a coluna
'Se Ulinha é 2 é porque nessa coluna só tem o cabeçalho e por isso deleta a coluna
If Ulinha = 1 Or Ulinha = 2 Then
'Seleciona e deleta a coluna
Cells(1, UCol).Select
Columns(ActiveCell.Column).Select
Selection.Delete Shift:=xlToLeft
End If
UCol = UCol - 1
Loop
Range("A1").Select
End Sub
Postado : 07/10/2016 1:09 pm