Delete row values in table if cell value = X

[ipbr21054]

On my worksheet i have a table of values.
Row 3 are headers then values are down the page from there.
Table range values are column N to S

I am using the code below.
What i am looking to do is if the value in the table column S = X then delete the row values for column N to S where X is currently shown.
X may be on one row or many rows.

See example screenshot supplied, Column S value is X so the code needs to delete that rows values.

With the code supplied i get a RTE 1004 "OPERATION NOT ALLOWED, THE OPERATION IS ATTEMPTING TO SHIFT CELLS IN A TABLE"

Private Sub DeleteCustomer_Click()
    Dim tblName As String
    Dim tbl As ListObject
    Dim R As Long
    Dim lr As Long
    Dim i As Long
    
    If ActiveCell.Column = 19 And ActiveCell.Row > 3 And ActiveCell.Value = "X" Then
       ActiveCell.Resize(1, 6).Delete
           
    End If

End Sub

 

[ipbr21054]

I did this as a test and it deletes the entire row.
So how do i edit it so the code only delete the row in the table of which is column N to S

Private Sub DeleteCustomer_Click()
    Dim tblName As String
    Dim tbl As ListObject
    Dim R As Long
    Dim lr As Long
    Dim i As Long
    
    If ActiveCell.Column = 19 And ActiveCell.Row > 3 And ActiveCell.Value = ("X") Then
       ActiveCell.EntireRow.Delete
    End If

End Sub

 

[ipbr21054]

@Joe4 This is right up your street

 

[Joe4]

I don't work much with tables, but we can incorporate the method shown in the first response here: How to delete the active table row in a ListObject?

So, your final code would look like:

Private Sub DeleteCustomer_Click()
    Dim tblName As String
    Dim tbl As ListObject
    Dim R As Long
    Dim lr As Long
    Dim i As Long
    Dim ActiveTableRow As Long
    
    If ActiveCell.Column = 19 And ActiveCell.Row > 3 And ActiveCell.Value = "X" Then
        ActiveTableRow = Selection.Row - Selection.ListObject.Range.Row
        Selection.ListObject.ListRows(ActiveTableRow).Delete
    End If

End Sub

 

[ipbr21054]

Many thanks now sorted

 

[Joe4]

You are welcome.