Guru do Excel e Power BI

Olá Turma,
Gostaria de uma ajuda referente ao vinculo de macro, ela precisa ser executada na mesma linha, onde é colocado qualquer valor de forma manual, porem, essa macro é executada na linha inferior a da mesma coluna.
Print em anexo.
Código!

Private Sub Worksheet_Change(ByVal Target As Range)
ActiveSheet.Unprotect

Set KeyCells = Range("F1:F9999")

If Not Application.Intersect(KeyCells, Range(Target.Address)) _
Is Nothing Then

ActiveSheet.Unprotect

linha = ActiveCell.Row
Range("G" & linha).Select
ActiveCell.Value = Now()
Selection.Locked = True

End If
End Sub

Agradeço desde já!

Provavelmente está configurado para quando você der enter, o cursor move para a célula inferior.

Neste caso, use:
ao invés de