VBA Code Zelle Kopieren

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim lngRow As Long
Dim lngZei As Long, lngSpa As Long, ZeiTitel As Long
Dim strMsg As String
If Not Intersect(Target, Range("I8:L1500")) Is Nothing Then
Cancel = True
Select Case Target.Column
Case 9
If MsgBox("Willst du wirklich dieses Projekt an Stefan Bendin übergeben?", _
vbQuestion Or vbOKCancel, "Abfrage") = vbOK Then
With Workbooks("PPL Bendin").Worksheets("Projekte")
lngRow = .Cells(.Rows.Count, 3).End(xlUp).Row + 1
Target.Offset(, -8).Resize(, 5).Copy .Rows(lngRow)
'nach Übergabe Zeile löschen
'Target.EntireRow.Delete
End With
End If
Case Else
'do nothing
End Select
End If
End Sub