Datumszelle aktualisieren

Hallo, ihr Wissenden,
ich komme nicht weiter.
ich habe zwei Datumsspalten:

  1. Frist
  2. Nachfrist
    Was ich möchte ist,
  • wenn das Datum der Nachfrist erreicht wird (Übereinstimmung
    mit dem aktuellen Datum,soll es sich in die Spalte „Frist“ unter die
    jeweils letzte Datumsangabe einkopieren und stehenbleiben.
    Gleichzeitig soll sich die Zelle „Nachfrist“ löschen zur Neueingabe.

Uuuiih - geht das überhaupt ?
Wer das rauskriegt, bekommt von mir ein Bienchen.
Gruß
Uwe

Spalte A: Frist
Spalte B: Nachfrist

Sub fristsetzen()
Dim rng As Range
Range(„b2:b500“).Select
For Each rng In Selection
If rng.Value