Não entendi muito bem, mais vai lá em "Validação de Dados" que tem a sequencia.

Não entendi muito bem, mais vai lá em "Validação de Dados" que tem a sequencia.

É VBA, conforme expliquei coloca 17 como 2017 depois do código

Fiz essa planilha e será mais fácil de entender

Quase pronto, só preciso que Gato e Laranja seja 18

Eu continuo com dificuldade em entender vossas demandas, contudo experimente:

Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False

If Range("F14") = "Animal" And ActiveCell.Value = "Gato" Then ActiveCell.Value = ActiveCell & Right(Year(Date), 2) + 1
If Range("F14") = "Animal" And ActiveCell.Value = "Avez" Or ActiveCell.Value = "Peixe" Then
ActiveCell.Value = ActiveCell & Right(Year(Date), 2)
End If

If Range("f14") = "Frutas" And ActiveCell.Value = "Laranja" Then ActiveCell.Value = ActiveCell & Right(Year(Date), 2) + 1
If Range("f14") = "Frutas" And ActiveCell.Value = "Abacaxi" Or ActiveCell.Value = "Pera" Then
ActiveCell.Value = ActiveCell & Right(Year(Date), 2)
End If

Application.EnableEvents = True
End Sub

Perfeito Reinaldo !

Tinha feito quase igual, mas não tinha colocado outro if e sim else
Obrigado !