Probleme beim Doppelklick

Hallo Leute,
mit Daniels Hilfe habe ich folgenden Code bekommen, der im Bereich B7:F200 bei Doppelklick den Inhalt der Zelle darüber in die geklickte Zelle kopiert. Wie kann ich den Code erweitern, damit ich bei bereits beschriebenen Zellen, die geklickt werden, kein Ereignis habe?
Danke
Ron

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Intersect(Target, Range("B7:F200")) Is Nothing Then Exit Sub
Select Case Target.Column
Case 2
Target.Value = WorksheetFunction.Sum(1, Target.Offset(-1, 0))
Case Else
Target.Value = Target.Offset(-1, 0).Value
End Select
Cancel = True
End Sub