Date - Automatic

Hi. I have a scenario that I need help. Here it is:

I have sheet1 and sheet2

On A1 (Sheet1), I have a macro that when I hit ENTER key after inputting info it will automatically copy it to last empty row on Sheet2 (starting from column A):

Private Sub Worksheet_Change(ByVal Target As Range)
Dim cell As Range, MyArr As Variant, NR As Long

For Each cell In Target
    If cell.Address = "$A$1" And Len(cell) > 0 Then
        MyArr = Split(cell, "-")
        With Sheets("Sheet2")
            NR = .Range("A" & .Rows.Count).End(xlUp).Row + 1
            .Range("A" & NR).Value = MyArr(1)
            .Range("B" & NR).Value = MyArr(0)
            .Range("C" & NR).Value = MyArr(2)
        End With
        cell.Value = ""
        cell.Select
    End If
Next cell

End Sub

Now, what I would like to add here is after it got copied to Sheet2, I would like to add the date it is entered (which is current date) automatically on column E(Sheet2). Please help. Thank you again.

Note: The code above is provided to me by one best Excel pro here in this forum. I thank him for that.

thank you very much. It worked.