DarlamMM

Boa tarde galera, estou precisando de uma ajudinha, tenho esse codigo: Private Sub Worksheet_Change(ByVal Target As Range) On Error Resume Next Dim Lin As Integer If Target.Address = "$E$3" Then Lin = Range("B1000000").End(xlUp).Row Cells(Lin + 1, 2).Value = Cells(3, 5).Value Cells(Lin + 1, 3).Value = Now If Cells(3, 5).Value = "" Then Cells(Lin + 1, 2).Value = "Valor deletado" End If End If End Sub Que me pega todo valor digitado no campo E3 e me gera um historico, porem preciso disso sendo passado por referencia (no caso formula), por exemplo, no campo E2 quero colocar um SE A1+A2 = 2, me retorna SIM, e quero que esse SIM seja gerado no historico do campo E3. Agradeço de coração quem puder me ajudar, sou bem novato nesse mundo de VBA, e peguei esse codigo do amigo Explorar Excel do Youtube,