>>150
Sub test(DeleteRange As Range)
Dim R As Range

For i = 1 To DeleteRange.Rows.Count
v = DeleteRange.Cells(i, 1)
If v Like "abc*" Or Len(Trim(v)) = 0 Then
If R Is Nothing Then
Set R = DeleteRange.Cells(i, 1).EntireRow
Else
Set R = Union(R, DeleteRange.Cells(i, 1).EntireRow)
End If
End If
Next

R.Delete
End Sub