Double click cell - copy data to new sheet - create a list from double clicking

Hi,

I have hunted the forums for a while now trying to find a solution for the problem I am stuck with.

I wish to create a Code enabling me to Double click a cell, in turn it then copies the cell to a new sheet. I then wish to go back to the first sheet and double click the next item to copy across, pasting the new item underneath the first copied cell, continuing to do this multiple times to create a list

Currently this Code over writes the cell on the new sheet (D1)
how can I change the range to be row D recurring?

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Target, Range("A1:A15")) Is Nothing Then
Cancel = True
Target.Copy
Sheets("SHEET1").Range("D1").PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False
Sheets("SHEET1").Select
End If
End Sub

cheers,
Kak