Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Column = 2 And Target.Row > 1 Then ' Columna B
        Application.EnableEvents = False
        Cells(Target.Row, 1).Value = Date ' Columna A
        Application.EnableEvents = True
    End If
End Sub