Passar dado por referencia

[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,