Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Dim cel
For Each cel In Target
With cel
If .Row > 1 And .Column = 1 Then
With .EntireRow
If .Cells(1, 1) <> "" Then .Cells(1, 2) = Format(Now, "dd/mm/yyyy hh:mm:ss")
End With
End If
End With
Next cel
End Sub