Excel Datum automatisch eintragen

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Row >= 3 Then 'erst ab Zeile 3  
    If Not Intersect(Target, Columns("B")) Is Nothing Then 'Spalte B überwachen  
        Target.Offset(0, -1).Value = Date 'Offset = Abstand in Zeilen und Spalten zur veränderten Zelle  
    End If
End If
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Row >= 3 Then 'erst ab Zeile 3  
    If Not Intersect(Target, Columns("B:C")) Is Nothing Then 'Spalten B bis C überwachen  
        Cells(Target.Row, "A").Value = Date 'in Spalte A der veränderten Zelle eintragen  
    End If
End If
End Sub