Automatisk dato der ikke overskrives

i arkets eget kodemodul (højreklik på arkfanen og vælg Vis programkode) indsætter du denne kode:
Her betragtes kolonne A som kolonnen med dato og kolonne D som en vigtig kolonne der skal være udfyldt for hver record

Private Sub Worksheet_Change(ByVal Target As Range)
  If Not Intersect(Target, Range("D:D")) Is Nothing Then
      If Target.Cells.Count = 1 Then
        Cells(Target.Row, 1) = Date  'her ændres 1 til 6 for at indsætte dato i kolonne F istedet
      End If
  End If
End Sub

Tak for hjælp
Så mangler jeg bare at kunne give point. Men jeg får ikke valgmuligheden

det gør du så nu :-)

Jeg har lige en tilføjelse til koden, fordi at hvis kolonne D ændres så ændres datoen også. Denne gør at det kun sker første gang

Private Sub Worksheet_Change(ByVal Target As Range)
Dim rgCheck As Range
Set rgCheck = Range("D:D")
  If Not Intersect(Target, rgCheck) Is Nothing Then
      If Target.Cells.Count = 1 Then
        If IsEmpty(Cells(Target.Row, 1)) Then
            Cells(Target.Row, 1) = Date
        End If
      End If
  End If
End Sub