Macro para adicionar fórmulas e formatação condicional

[Hbadotti]

Bom gente, tenho o seguinte macro do qual um membro da comunidade me passou

 

Sub AdicionarAbastecer()

With Sheets("Banco de Dados")
Range("L4:T4").Copy Destination:=.Range("A" & Rows.Count).End(xlUp).Offset(1)
.Range("A2:I" & .Cells(Rows.Count, 1).End(xlUp).Row).Sort Key1:=.[A2], Order1:=xlDescending
End With

End Sub

 

Gostaria de saber como faço para que além desse macro fazer essa cópia/cola dos dados ele insira a seguinte fórmula na coluna "I2" (que é a onde o dado vai ser adicionado) =se(A3="";"";SOMA(A2-A3)), e que a formatação dessa linha seja de acordo com a regra "Formatacao" que eu já tenho pré-definida em minha tabela.


--------------------------------------------

 

A fórmula a ser usada será =se(A3="";NÃO.DISP();SOMA(A2-A3)) e não mais =se(A3="";"";SOMA(A2-A3))
Obrigado ao Patropi