Run Code When E2 or E3 Change

[BillySpivy]

Hi,

Could the code below be modified so when cells E2 or E3 change it runs?

Thank you

Sub FIL()
Dim a
On Error Resume Next
With Sheet2
    If .ListObjects(1).ListRows.Count Then .ListObjects(1).DataBodyRange.Delete
    a = .Evaluate("FILTER(Table1,TEXT(Table1[Date],""[$-en]mmmmyyyy"")=E3&E2)")
    .[B7].Resize(UBound(a), 6) = a
End With
End Sub