Veja se é isto.

Extraído da Ajuda do VBA : Método FIND

Sub LocalizaDeleta()

    With Worksheets(1).Range("U2:U25")
        Set c = .Find(0, LookIn:=xlValues)
        If Not c Is Nothing Then
            firstAddress = c.Address
            Do
                c.ClearContents
                Set c = .FindNext(c)
            If c Is Nothing Then Exit Sub
            
            Loop While Not c Is Nothing And c.Address <> firstAddress
        
        End If
        
    End With

End Sub

Bom dia!!

Talvez outra forma seria..

Sub AleVBA_11668()
For Each Cell In [U2:U25]
If Cell.Value = "0" Then Cell.ClearContents
Next Cell
End Sub

Att

Obrigado Mauro e Alexandre,
A função do Alexandre me atendeu plenamente.
Grato,
Pedro

Alexandre,
Peço desculpas, mas preciso reabrir o tópico.
Esqueci de informar que é para localizar e deletar Zeros somente a partir do último Valor diferente de Zero.

Exemplo:
Intervalo [T2]

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

Uma possibilidade

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

Valeu, Reinaldo!
Obrigado.