VBA for deleting rows in a table based on value in a column

[SomethngWicked]

Hi, can someone please help regarding a VBA solution that could delete rows in a table that are extraneous? For example, I have a table of data that's generated each month and there's quite a few vendor values that aren't needed and require manual filtering/deletion. The range of data can vary (it's usually around 60,000 rows). What I essentially need is for the VBA to scan through the below example table and if vendor = Granny Smith, Golden Delicious, or Fuji, it would highlight and delete the entire row. After the VBA runs, there'd only be two rows in the table for Mcintosh and Honeycrip. If there's another (easier) way to accomplish this, please let me know. Thanks so much for the help!

Type of Food:	Color:	Vendor
Apple	Red	Fuji
Apple	Green	Granny Smith
Apple	Red	McIntosh
Apple	Red	Honeycrisp
Apple	Red	Golden Delicious

 

[dreid1011]

Maybe this:

Sub DelRowsR()
Dim i As Long
Dim ws As Worksheet
Set ws = ActiveSheet

Application.ScreenUpdating = False

For i = ws.Range("C" & Rows.Count).End(xlUp).Row To 2 Step -1
    If ws.Range("C" & i).Value = "Fuji" Or ws.Range("C" & i).Value = "Granny Smith" Or ws.Range("C" & i).Value = "Golden Delicious" Then ws.Range("C" & i).EntireRow.Delete
Next

Application.ScreenUpdating = True
End Sub