Macro to removed rows with exact text

[Awebber1993]

I'm trying to create a macro which allow me to remove a row if it contains an exact word. When I extract data, the column may contain the word "Renewal" or "Renewal & Additional". What I'm trying to achieve is to remove all the rows that contain the word "Renewal" and not the rows that contain "Renewal & Additional". So far I have come across this coding and it will remove all rows that contain the word "Renewal", is there a way is can be adjusted?

With ActiveSheet
.AutoFilterMode = False
With Range("e1", Range("e" & Rows.Count).End(xlUp))
.AutoFilter 1, "*Renewal*"
On Error Resume Next
.Offset(1).SpecialCells(12).EntireRow.Delete
End With
.AutoFilterMode = False
End With

 

[My Aswer Is This]

Try this:

Sub Filter_Me_Please()
'Modified 6/26/18 4:40 AM EDT
Dim Lastrow As Long
Dim c As Long
Dim s As String
c = "5" ' Column Number Modify this to your need
s = "Renewal" 'Saerch Value Modify to your need
Lastrow = Cells(Rows.Count, c).End(xlUp).Row
With ActiveSheet.Cells(1, c).Resize(Lastrow)
    .AutoFilter 1, s
    counter = .Columns(c).SpecialCells(xlCellTypeVisible).Count
    If counter > 1 Then
        .Offset(1).Resize(.Rows.Count - 1).SpecialCells(xlCellTypeVisible).EntireRow.Delete
    Else
        MsgBox "No values found"
    End If
    .AutoFilter
End With
End Sub

 

[Awebber1993]

That's worked wonderfully! Thank you so much for that. I know my information was sparse but its done the job!!

 

[Rick Rothstein]

If the word "Renewal" is the only text in a cell in Column E, then you can use this code to delete those rows...

[table="width: 500"]
[tr]
	[td]Columns("E").Replace "Renewal", "#N/A", xlWhole, , False, , False, False
Columns("E").SpecialCells(xlConstants, xlErrors).EntireRow.Delete[/td]
[/tr]
[/table]

 

[My Aswer Is This]

Glad I was able to help you.
Come back here to Mr. Excel next time you need additional assistance.

That's worked wonderfully! Thank you so much for that. I know my information was sparse but its done the job!!