Localizando célula com zero em um intervalo e excluindo a próxima macro de célula

Question

Eu preciso de orientação sobre um problema que estou tendo. Eu criei uma macro que exclui o conteúdo da célula se for igual a zero. O que eu quero realizar é também adicionar a próxima célula à direita ser deletada em conjunto. Por exemplo, se a célula "B38" for igual a 0, exclua o conteúdo da célula e o conteúdo de "C38". Abaixo está o que eu tenho que apaga apenas a célula que é igual a zero.

Sub FindZeros()
Dim z As Range

    Range("B38:B63").Select
    For Each z In Selection
        If z.Value = 0 Then z.delete
     Next z

End Sub

    

Answer 1

Use Resize (), também ao excluir o loop de volta.

Sub FindZeros()
Dim z As Long

    For z = 63 to 38 step -1
        If activesheet.cells(z,2).Value = 0 Then activesheet.cells(z,2).Resize(1,2).delete
     Next z

End Sub