Try to put the red line in your worksheet event code & see if that solves the problem 

Private Sub Worksheet_Change(ByVal Target As Range)
Dim ws As Worksheet
Dim cel As Range
Dim myRow As Long

If target.columns.count>1 then exit sub
Set ws = ThisWorkbook.Sheets("Termed")

If Not Intersect(Target, Range("A4:A13")) Is Nothing Then ' watch all the cells in this range
    For Each cel In Target ' do the next steps for each cell that was changed
        myRow = cel.Row
        Range("j1").Copy Cells(Target.Row, 4)
        Range("E" & myRow).Value = Date
        Range("F" & myRow).Value = "Termed"
        Application.EnableEvents = False
        If IsEmpty(ws.Range("A" & myRow)) Then Sheet3.Range("D" & myRow).Value = ""
        If IsEmpty(ws.Range("A" & myRow)) Then Sheet3.Range("E" & myRow).Value = ""
        If IsEmpty(ws.Range("A" & myRow)) Then Sheet3.Range("F" & myRow).Value = ""
        Application.EnableEvents = True
    Next cel
End If

End Sub