Caros, gostaria de saber se é possível utilizar uma função para substituir um código VBA, para os seguites itens.

For i = 2 To linha02
If Cells(i, 9).Value = "Defeito Não Declarado" And Cells(i, 10).Value <> Cells(i, 9).Value Then Cells(i, 16).Value = "Não declarado/Sem etiqueta"
If Cells(i, 10).Value = Cells(i, 9).Value And Cells(i, 9).Value <> "Defeito Não Declarado" Then Cells(i, 16).Value = "Laudo OK"
If Cells(i, 10).Value <> Cells(i, 9).Value And Cells(i, 9).Value <> "Defeito Não Declarado" Then Cells(i, 16).Value = "Laudo Não OK"
If Cells(i, 10).Value = "Solicitação do SAC" And Cells(i, 15).Value = "NÃO" Or Cells(i, 10).Value = "Código 4, 6, 14 e ETC" And Cells(i, 15).Value = "NÃO" Then Cells(i, 17).Value = "Devida"
If Cells(i, 10).Value <> "Solicitação do SAC" And Cells(i, 15).Value = "NÃO" Or Cells(i, 10).Value <> "Código 4, 6, 14 e ETC" And Cells(i, 15).Value = "NÃO" Then Cells(i, 17).Value = "Indevida"
Else Cells(i, 17).Value = "Indevida"

End If

If Cells(i, 10).Value <> "Solicitação do SAC" And Cells(i, 15).Value = "SIM" Or Cells(i, 10).Value <> "Código 4, 6, 14 e ETC" And Cells(i, 15).Value = "SIM" Then Cells(i, 17).Value = "Devida"

segue planilha com modelo da tabela