Add condition to event macro

Hi Folks!

Not much of a programmer (as some of you know).

I have a Worksheet_BeforeDoubleClick event that I need to expand to include an "or" condition. I know that a sheet can only have a single event macro so I need to modify the current code.

Here's the code:

Option Explicit

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    
    Application.EnableEvents = False
    On Error GoTo sub_exit
    If Not Intersect(Target, Range("E2563:E10000")) Is Nothing Then
        With Target
            If .Value = "X" Then
                .Value = ""
            Else
                .Value = "X"
            End If
        End With
    Cancel = True
    End If
sub_exit:
    Application.EnableEvents = True
End Sub

I need to add:

If you double click within column A then enter today's date in the target cell.