Option Explicit
Const TIMESTAMPCOL = 5
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If ActiveSheet.Type = xlWorksheet Then
If Target.Rows.Count = 1 Then
If Target.Column <> TIMESTAMPCOL Then
ActiveSheet.Cells(Target.Row, TIMESTAMPCOL) = Now
End If
End If
End If
End Sub