Localizar e Deletar Zero [Resolvido]

[pedrobb]

Pessoal,
No Intervalo T2:U25 preciso de função que Localize célula(s) com Valor(es) igual a Zero e Delete-o(s).
Mas, é para localizar e deletar Zeros somente a partir do último Valor diferente de Zero, como no exemplo abaixo:

Intervalo [T2:U25]

T..............U 
Out/13.......8.400
Nov/13.......0 (não pode deletar este zero)
Dez/13.....…3.500
Jan/14.......0 (não pode deletar este zero)
Fev/14...….12.000
Mar/14......18.000
Abr/14......0 (não pode deletar este zero)
Mai/14.......22.750
Jun/14.......111
Jul/14........3.500
Ago/14.......0 (é para deletar Todos os zeros a partir daqui (Ago/14 no caso)
Set/14........0
Out/14.......0
Nov/14.......0
Dez/14.......0
Jan/15.......0
Fev/15.......0
Mar/15.......0
Abr/15.......0
Mai/15.......0
Jun/15.......0
Jul/15........0
Ago/15.......0
Set/15........0

Grato,
Pedro

[pedrobb]

Resolvido com Função de Reinaldo:

Sub excluindo()
Dim x As Integer
For x = 25 To 2 Step -1
If Cells(x, "U").Value = 0 Then
Cells(x, "U").ClearContents
Else
Exit Sub
End If
Next
End Sub

[pedrobb]

Resolvido com Função de Reinaldo:

Sub excluindo()
Dim x As Integer
For x = 25 To 2 Step -1
If Cells(x, "U").Value = 0 Then
Cells(x, "U").ClearContents
Else
Exit Sub
End If
Next
End Sub

[vbalexandre]

Boa noite!!

favor indicar as postagens cruzadas!!
http://www.planilhando.com.br/forum/vie ... 10&t=11668

Att