enterキーを2回押すと値は2倍になるようにしたい

Question

セルF4にenterキーをおして、D4の値をF4に表示されるように下記のコードを書きました。

Public Sub Worksheet_Active()
Application.Onkey "~", "sheet1.Onkey"
End Sub

Private Sub Onkey()

Dim Row As Integer
Dim Col As Integer

Row = ActiveCell.Row
Col = ActiveCell.Column

If Col = "6" Then Range("F" & Row) = Range("D" & Row)
If Col = "14" Then Range("N" & Row) = Range("L" & Row)
If Col = "22" Then Range("V" & Row) = Range("T" & Row)
If Col = "30" Then Range("AD" & Row) = Range("AB" & Row)

End Sub

セルF4にenterキーを一回押して、D4の値をF4に表示され、2回押すならF4=２ｘD4、3回押すならF4=３ｘD4
というようなことをしたいんです。

どう修正したらいいでしょうか？
教えていただけますでしょうか？
どうかよろしくお願いいたします。

Answer 1

これでどうでしょうか。

If Col = 6 Then Range("F" & Row) = Range("F" & Row) + Range("D" & Row)