VBA If and loop

[CoolMacro]

Hi!
I'm trying to make a macro that searches a date in cell A1 and a combination of two criteria in cell D1, then i need delete entire row, how can I do this?
Follow the example: A B C D

Date	Client	Count	Historic
01/08/2013	XXXXX	1,019.00	YYYYYY - 02/07/2013
01/08/2013	XXXXX	1,019.00	YYYYYY - 29/07/2013
01/08/2013	XXXXX	1,019.00	WWWW
05/08/2013	XXXXX	1,019.00	WWWW
01/08/2013	XXXXX	1,019.00	YYYYYY - 31/07/2013
01/08/2013	XXXXX	1,019.00	WWWW
01/08/2013	XXXXX	1,019.00	WWWW

<tbody>
</tbody>

And the spreadsheet looks like this:
A B C D

Date	Client	Count	Historic
01/08/2013	XXXXX	1,019.00	YYYYYY - 02/07/2013
01/08/2013	XXXXX	1,019.00	WWWW
05/08/2013	XXXXX	1,019.00	WWWW
01/08/2013	XXXXX	1,019.00	WWWW
01/08/2013	XXXXX	1,019.00	WWWW

<tbody>
</tbody>

 

[CoolMacro]

I tryed this
Sub TestePeriodoCCIf()
'
'


Application.ScreenUpdating = False

Sheets("cc").Select
Dim i As Integer
Dim n As Integer

i = 1
n = Sheets("cc").Range("A1048576").End(xlUp).Row


Do While i < n
If Trim(Sheets("cc").Range("A" & i).Value) = "*" & Sheets("Início").Range("A1").Value & "*" Then
If Trim(Sheets("cc").Range("D" & i).Value) = "*Preg*" And ("*" & Sheets("Início").Range("A2").Value & "*" Or "*" & Sheets("Início").Range("A2").Value & "*") Then
Rows(i & ":" & i).Select
Selection.Delete Shift:=xlUp

End If
n = n - 1
Else
i = i + 1
End If
Loop


Aplication.ScreenUpdating = True

End Sub