I have written code to retain data containing the following text below in Col E, but cannot get it to work
1) IG Voucher
2) Annuity
It would be appreciated if someone could kindly amend my code
Sub Retain_Annuity_IGVouchers()
With Sheets("Imported Data")
.Range("A2").CurrentRegion.AutoFilter Field:=5, Criteria1:= _
"<>*Annuity*", Operator:=xlAnd
Range("A2").CurrentRegion.AutoFilter Field:=5, Criteria2:= _
"<>*IG Voucher*", Operator:=xlAnd
.Range("A2").CurrentRegion.Offset(1).EntireRow.Delete
.AutoFilterMode = False
End With
End Sub
Bookmarks