Deleting a row from a table with a condition

[sofas]

Hello, I want a code that enables me to search for a specific value in a column and when it is present, the row is deleted from the first table without affecting the second because it contains formulas that should not be deleted

The search condition is in cell sheet2.range("a7")

 

[ouvay]

Give this a go

Sub deleteTableRowWithCondition()
    Dim ws As Worksheet: Set ws = ThisWorkbook.Worksheets("Sheet1")
    Dim findValue As String, lr As Long
 
    findValue = Sheet2.Range("A7").Value
 
    With ws.ListObjects("Table24").DataBodyRange ' this is the table you want to delete from... make sure the name is correct (Replace the table name---"Table24")
        lr = .Cells(.Rows.Count, 1).Row
        For i = lr To 1 Step -1
            If .Cells(i, 4) = findValue Then
                .Rows(i).Delete
            End If
        Next i
    End With
End Sub