Macro to delete Row containing EC

[howard]

I need code that will delete the entire row where the word EC appears in Col A at the end of the text for eg where A8749EC appears in Col A, the entire row must be deleted

Your assistance will be most appreciated

 

[VoG]

Try

Sub DelEC()
Dim LR As Long, i As Long
LR = Range("A" & Rows.Count).End(xlUp).Row
For i = LR To 1 Step -1
    If Right(Range("A" & i).Value, 2) = "EC" Then Rows(i).Delete
Next i
End Sub

 

[JackDanIce]

Try:

Sub Delete_EC ()
Dim i As Long
If ActiveSheet.AutoFilterMode Then ActiveSheet.AutoFilterMode = False
Application.DisplayAlerts = False
i = Range("A" & Rows.Count).End(xlUp).Row
Range("A1:A" & i).AutoFilter Field:=1, Criteria1:="=*EC", Operator:=xlAnd
ActiveSheet.UsedRange.Offset(1, 0).Resize(ActiveSheet.UsedRange.Rows.Count - 1).Rows.Delete
Application.DisplayAlerts = True
ActiveSheet.AutoFilterMode = False
End Sub

 

[howard]

Hi Guys

Thanks for the help, much appreciated