Clear contents in table based on certain words in last column

[cheesypoofs]

Hello all! I am extremely new to VBA, so my question may be dumb or simple, but I haven't been able to find the answer anywhere... I am trying to make a sales tracker with a table range from A2:G103 including headers. Column G in that table will include a dropdown to select options such as offer sent, scheduled, installed, pending acceptance, cancelled, and so on. I have made a code to clear the full contents of the table, but I also want to create a macro to clear only the rows in the table that contain "installed, scheduled, and cancelled". I have tried fooling around with .Auto filter, but I might be missing something because it ends up deleting my table (save the headers). Any tips would be great!

 

[StuLux]

Try this:

Sub DeleteRows()
Dim dRng As Range
With ActiveSheet.ListObjects("Table1")
    .Range.AutoFilter Field:=7, Criteria1:=Array("Cancelled", "Installed", "Scheduled"), Operator:=xlFilterValues
    If WorksheetFunction.Subtotal(2, .DataBodyRange) > 0 Then
        Set dRng = .DataBodyRange.SpecialCells(xlCellTypeVisible)
        .Range.AutoFilter
        dRng.Delete xlUp
    End If
End With
End Sub

 

[cheesypoofs]

Dim dRng As Range With ActiveSheet.ListObjects("Table1") .Range.AutoFilter Field:=7, Criteria1:=Array("Cancelled", "Installed", "Scheduled"), Operator:=xlFilterValues If WorksheetFunction.Subtotal(2, .DataBodyRange) > 0 Then Set dRng = .DataBodyRange.SpecialCells(xlCellTypeVisible) .Range.AutoFilter dRng.Delete xlUp End If End With

That works, but then it ends up deleting cells within the table. I want to keep the table as long as it is for user input without removing those sells all together, thats why I want it to just clear contents while keeping the format of the table