Zeilen löschen mit Bedingung

Sub DatumKopieren()
Dim i As Long
Dim Datum As Date
Dim c As Range
Dim firstAddress As String
Datum = "10.07.2010"
i = 1
With Sheets("Tabelle1").Range("A1:A" & Sheets("Tabelle1").Cells(Rows.Count, "A").End(xlUp).Row)
Set c = .Find(Datum, LookIn:=xlValues)
If Not c Is Nothing Then
firstAddress = c.Address
Do
c.EntireRow.Copy Destination:=Sheets("Tabelle2").Range("A" & i)
i = i + 1
Set c = .FindNext(c)
Loop While Not c Is Nothing And c.Address  firstAddress
End If
End With
End Sub