Alexandre,

Não entendi muito bem sua pergunta, mas caso esteja querendo aplicar na celula F2 essa formula, segue o código.

Sub Formula()

Range("F2").Select

Range("F2").FormulaLocal = _
"=SE(E(C3="""";D3="""");"""";SE(OU(E(C3=102;E3=""AC"");E(C3=102;E3=""CS"");E(C3=102;E3=""ME"");E(C3=102;E3=""PF""));102;SE(OU(E(C3=107;E3=""AV"");E(C3=107;E3=""CM"");E(C3=107;E3=""CT""));107;SE(E(C3=104;E3=""TM"");104;""DELETE""))))"

End Sub

Caso você não queira isso, explique melhor e anexe um modelo.

Abraço

Boa noite!!

Exelente!!!

Muito Obrigado!!!!!!!!!!!!!!!!!!!!!!!!!

Att.

Que bom que deu certo! Precisando estamos ai!

Só deixa o tópico como concluído, conforme orientação dos ADM para manter organizado.

Abraço.

Bom dia!!!

Obrigado, mas eu havia feito como recomendo ADM, para tópicos resolvido, não sei o que deu de errado!!.

Perdão pelo erro...