如何检查范围并将包含值的单元格复制到另一个单元格

Question

我有一个范围D15：V15，其中只有一个单元格可能包含一个值。每当该工作表上有更改时，我想将包含一个值的单元格复制到单元格O7。下面的公式显示了期望值，但显示该值后仍然崩溃。有人可以帮我找出可能的原因。

这是我的代码：

Private Sub Worksheet_Change(ByVal Target As Range)

Dim SrchRng As Range, cel As Range
Set SrchRng = Range("D15:V15")
For Each cel In SrchRng
    If cel.Value <> "" Then
        'cel.Offset(-8, 11).Value = cel.Value
        Range("O7").Value = cel.Value
    End If
Next cel