A pergunta é as colunas vazias são sempre as mesmas?

Se sim o gravador de macros resolve.

E so gravar uma macro apagando as colunas uma vez que o codigo servira para as proximas.

Nem sempre serão as mesmas, por isso meu dilema.

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