Señores expertos favor su ayuda con una macro

No pusiste cual es el criterio, pero aquí está la macro, sólo escribe el criterio

Sub eliminar()
'Por.DAM
For i = Range("A" & Rows.Count).End(xlUp).Row To 1 Step -1
    If Cells(i, "A") = "criterio" Then
        Rows(i).Delete
    End If
Next
End Sub

Saludos. Dante Amor
No olvides finalizar la pregunta.