try to replace

If Target.Cells.Column = 1 Then

with

If Target.Cells.Column = 1 And Target.Cells.Row = 5 Then


On 8 Kwi, 14:20, puiuluipui
wrote:
Hi, i need this code to run from "A5".
Can this be done?
Thanks!

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
'when entering data in a cell in Col A
On Error GoTo enditall
Application.EnableEvents = False
If Target.Cells.Column = 1 Then
N = Target.Row
If Me.Range("A" & N).Value < "" Then
With Me.Range("B" & N)
If .Value = "" Then
.Value = Now
End If
End With
End If
End If
enditall:
Application.EnableEvents = True
End Sub