EdsonBR, vc fez algo parecido que funcionou muito bem, e por muito tempo ...

Mas em OUT/21 tive que mudar o arquivo, aí o código deixou de funcionar ...

Por isto gostaria, como disse, de Código para excluir as colunas que tem zero "0" na linha 6 ...

E outra para excluir as linhas com zero "0" na coluna Z

Assim ficaria mais fácil eu Editar, caso necessário!!

Boa noite, amigo!

Crie os dois botões e teste esse código:

Option Explicit
Enum Excluir
  Linha = 0
  Coluna = 1
End Enum

Sub btnLinha_Click()
  ExcluiComZeros Excluir.Linha
End Sub

Sub btnColuna_Click()
  ExcluiComZeros Excluir.Coluna
End Sub

Sub ExcluiComZeros(tipo As Excluir)
  Dim r As Range, c As Range, rDel As Range
  If tipo = Linha Then Set r = [Z:Z] Else Set r = [6:6]
  On Error GoTo Fim
    Set r = r.SpecialCells(xlCellTypeFormulas)
    For Each c In r.Cells
      If c.Value = 0 Then
        If rDel Is Nothing Then Set rDel = c Else Set rDel = Union(rDel, c)
      End If
    Next c
    If tipo = Linha Then Set rDel = rDel.EntireRow Else Set rDel = rDel.EntireColumn
    rDel.Delete
Fim:
End Sub

@edsonbr, valeu!!! ... SHOW!!!

Olá, Edson.

Uma dúvida de um noob em vba, que tá tentando aprender. Essa última Sub não deveria ser uma Function?

Abs.

Boa noite, @jordsdoexcel!

Definitivamente não, pois o que diferencia fundamentalmente uma Sub de uma Function é o fato de que uma Sub executa ações, simples ou complexas, enquanto que uma Function, embora também possa executar algumas tarefas corriqueiras, é usada pra retornar algum valor ou objeto. É equivalente a uma variável, ou seja, pode ser colocada à direita de um sinal de igualdade ou desigualdade, ter seu valor atribuído a outra variável, etc.

No procedimento do amigo @JSCOPA10 o uso é exclusivamente para executar ações (deletar linhas ou colunas), não pra retornar algum valor ou intervalo.

Entendi.

Obrigado, mestre!

Abs.

Só para esclarecer, o código do EdsonBR funciona perfeitamente, mas após os testes descobri que, primeiro tem que excluir as linhas, depois as colunas ... se inverter esta ordem, o código perde a referência da coluna "Z" !!!

Mas a solução foi ótima!!!