Дата форматирования в Private Sub

Question

У меня есть две незначительные проблемы с тем, что код автоматически вставляет дату в столбец F.

1) В настоящий момент дата изменяется, если я щелкаю в ячейке E, даже до того, как что-то там наберу ..., могу ли я это изменить, она должна работать после того, как я вставлю туда любое значение, а не только по щелчку?

2) Я пытаюсь отформатировать дату, добавив эту строку:

r.Offset(0, 1).Value = Date & " " & Time    
r.Offset(0, 1).Value.NumberFormat = "mm/dd/yyyy hh:mm"

но я получаю ошибку, что я делаю не так?

 Private Sub Worksheet_SelectionChange(ByVal Target As Range)
       Dim E As Range, F As Range, Inte As Range, r As Range
    Set E = Range("E:E")
    Set Inte = Intersect(E, Target)
    If Inte Is Nothing Then Exit Sub
    Application.EnableEvents = False
        For Each r In Inte
            If r.Offset(0, 1).Value = "" Then
               r.Offset(0, 1).Value = Date
            End If
        Next r
    Application.EnableEvents = True
End Sub

Answer 1

Попробуйте это:

r.Offset(0, 1) = Now    
r.Offset(0, 1).NumberFormat = "mm/dd/yyyy hh:mm"

Answer 2

 r.Offset(0, 1).Value = FORMAT(NOW(), "mm/dd/yyyy hh:mm")