Zelle gefunden dann zeile löschen

Sub Auftrag_löschen()
Dim wksUrsprung As Worksheet, wksZiel As Worksheet
Dim i, dZielZeile As Double, dZielSpalte As Double, strAuftrag As String, Antwort As String
Set wksUrsprung = ThisWorkbook.Worksheets("Eingabe")
Set wksZiel = Workbooks(pcDateiDaten).Worksheets("Daten")
strAuftrag = wksUrsprung.Range("G5").Value
dZielSpalte = 1
'schauen ob es den Auftrag schon gibt.
With wksZiel.Range("A1:A" & wksZiel.Cells(Rows.Count, 1).End(xlUp).Row)
Set c = .Find(strAuftrag, LookIn:=xlValues)
If Not c Is Nothing Then
Antwort = MsgBox("Soll der Lieferschein endgültig werden?", vbYesNo, "Lieferschein  _
löschen")
If Antwort = vbNo Then
Exit Sub
Else
End If
dZielZeile = c.Row
End If
End With
End Sub