Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count = 1 Then
If Target.Column = 6 And Target.Row > 7 And Target.Row < 1501 And Target <> "" Then
If IsDate(Target.Value) Or InStr(Target.Value, "/") > 0 Then
Range("AA" & Target.Row & ":DM" & Target.Row).Value = Range("AA" & Target.Row & ":DM" & Target.Row).Value
End If
End If
End If
End Sub