Dim varArr as Variant, lngArrItem as Long
varArr=Array("a","b","c")
For lngArrItem = Lbound(varArr) to Ubound(varArr)
With Range("A1:A100")
.Filter Field:=1, Criteria1:=varArr(lngArrItem)
.Offset(1).SpecialCells(12).EntireRow.Delete
.AutoFilter
End With
Next lngArrItem