Datumseingabe bei Doppelklick

Hallo Leute !
Ich habe in meinem Sheet einen code, der bei Doppelklick den gesamten Datensatz in ein Formblatt überträgt. Meine Frage wäre: Kann man, wenn man auf die Spalte C doppelklickt automatisch mit diesem Doppelklick gleichsam das heutige Datum in Spalte G eintragen lassen und den gleichsam mitübertragen lassen ?
Für Hilfe wäre ich dankbar.
chris

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Target, Range("C3:C5000")) Is Nothing Then
Sheets("Quittung").Range("D7").Value = Target.Value
End If
End Sub