Como puedo realizar una macro que cambie el valor de una celda como si es 0 lo cambia a 10

Si quieres que todo lo que tenga 0 sea reemplazado utiliza esta macro, pero incluso te va a cambiar, por ejemplo 20 a 210

Sub Macro1()
Cells.Replace What:="0", Replacement:="10", _
LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, _
SearchFormat:=False, ReplaceFormat:=False
End Sub

Si solamente quieres si una celda tiene el valor 0, utiliza la siguiente macro

Sub bucar0()
'por.dam
buscar = 0
nuevo = 10
    Set r = Cells
    Set s = r.Find(0, MatchCase:=True)
    If Not s Is Nothing Then
        If s = 0 Then
            Range(s.Address) = nuevo
            n = n + 1
        End If
        ncell = s.Address
        Do: Set s = r.FindNext(s)
            If Not s Is Nothing And s.Address <> ncell Then
                If s = 0 Then
                    Range(s.Address) = nuevo
                    n = n + 1
                End If
            End If
        Loop While Not s Is Nothing And s.Address <> ncell
    End If
    If n = 0 Then MsgBox "No hay datos", vbCritical, "ADVERTENCIA"
End Sub

Cambia en la macro estos valores para buscar y reemplazar

buscar = 0
nuevo = 10

Saludos. Dam