VBA How to delete rows in column G that begin with...

[Tardisgx]

I've tried recording,editing multiple recordings, understanding other forum posts, the kutools vba is useless.

The sheet is called "Columns"; column G has a header and the number of rows occupied will vary.

There are 19 If the cell begins with "x" delete the rows These keywords will stay the same.

I need this in the middle of a bigger macro- something i've made for my work; its not "elegant" and too long to paste here-

Loops are beyond my understanding and ive not been able to just paste one in the middle of a macro successfully.

Any help is appreciated.

 

[Fluff]

What exactly do you mean by

There are 19 If the cell begins with "x" delete the rows These keywords will stay the same.

 

[Tardisgx]

1 If cell in column G begins with tiger delete these rows
2 If cell in column G begins with bear delete these rows
...
19 If cell in column G begins with rat delete these rows

Columns A-I are occupied if that's relevant. I recorded data filter ect but I couldnt get it to do all 19 successfully.

 

[Fluff]

On another sheet (I've called it List) in A1 put the header of the column you want to filter.
Underneath that put the 19 values & run this

Sub Macro4()
   With Sheets("[COLOR=#ff0000]Sheet1[/COLOR]")
      .Range("A1").CurrentRegion.AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:= _
         Sheets("[COLOR=#ff0000]List[/COLOR]").Range("A1:A20"), Unique:=False
      .Range("A1").CurrentRegion.Offset(1).EntireRow.Delete
      .ShowAllData
   End With
End Sub

Change sheet names to suit

 

[Tardisgx]

This works perfectly; many thanks Fluff

 

[Fluff]

Glad to help & thanks for the feedback