VBA that deletes entire rows if value is NOT found in part

Hello All,
I wish to delete rows that do NOT contain the word "Total" in column D. Thus in my example, the VBA code should manipulate the first spreadsheet (1. Delete rows if value NOT found), so that it ends up looking like the second spreadsheet (2. Delete rows if value NOT found result). Note that the word "Total" is only part of the text in those cells where it appears.

Thanking you in advance for your help,
Andrewstupendo

Here's one way:

Please Login or Register  to view this content.

BSB

As a beginner starter :

PHP Code: 

Sub Demo1()
    With Sheet1.Range("D1:D" & Sheet1.UsedRange.Rows.Count)
        .AutoFilter 1, "<>*Total*"
        .Offset(1).EntireRow.Delete
        .AutoFilter
    End With
End Sub 


Do you like it ? So thanks to click on bottom left star icon « ★ Add Reputation » !

Dear BSB,
I tried your first macro and it works beautifully. Simple yet elegant code - and effective!

Thanks so much,
Andrewstupendo

Thanks for the rep' !

Dear BSB,
Not sure if you received my previous reply. Here it is quoted in full:
"Dear BSB,
I tried your first macro and it works beautifully. Simple yet elegant code - and effective!

Thanks so much,
Andrewstupendo"

Hi Andrewstupendo,

Many thanks for the feedback. Glad I could help.

BSB