Excel vba satır silme makrosu

Sub satir_sil()
Dim x, i
For i = 1 To 5  '*
For x = 2 To [D65526].End(3).Row Step 1
If Cells(x, 4) Like "*de*" Then
Rows(x).Delete
End If
Next x
Next i
End Sub