Clicar com o Mouse e inserir hora numa celula

Question

Senhores criei uma macro conforme abaixo, para colocar data e hora em uma celular do excel apertando um botão ou dando um click com o botão do mouse, porem estou com 2 problemas:

1 - Ao utilizar o teclado e passar o cursor por cima das celulas as mesmas está colocando automaticamente a informação;

2 - Como faço para um vez preenchido a data, eu não consigo altera-la mesmo clicando novamente em cima? 

Segue a Macro utilizada.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'Determinar o intervalo no qual serão inseridas as horas
Set TargetRange = Application.Union([C1:D1000], [H1:I1000], [Z1:AA1000])
'Determinar a intersecção da célula selecionada com o intervalo TargetRange
Set Interseccao = Application.Intersect(Target, TargetRange)
    'Executar caso haja intersecção
If Not Interseccao Is Nothing Then
    'Desativar outros eventos do Excel
    Application.EnableEvents = False
    'Inserir na célula selecionada o valor de data e hora atuais
    Target = Now
    'Reativar a execução de eventos
    Application.EnableEvents = True
End If
End Sub