需要能够双击sheet1上的单元格才能在sheet2上创建列表

Question

所以我希望能够双击Sheet1上的多个单元格以在Sheet2上创建一个排序列表。

我现在使用的代码的问题在于，它只是替换了sheet2上一个单元格中的内容，而不是看到它已经具有内容，然后将内容传输到它下面的下一个单元格中。

Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Target, Range("E:P")) Is Nothing Then
    If Target.Cells.Count = 1 then
        Cancel = True
        Sheets("Sheet1").Range("S13") = Target.Value
    End If
    End If
    End Sub

例如，我需要能够双击E12 sheet1，它用其内容填充sheet2上的S13。然后，我双击Sheet1上的E15，它发现Sheet2上的S13已经包含了内容，因此它用其内容填充了Sheet2上的S14。