Macro - find cells row by row, clear contents if certain value in cells

This should start you off

Sub x()
  
Dim rFind As Range, v, i As Long
 
v = Array(3, 56, 143)

With Range("A1:G100")
    For i = LBound(v) To UBound(v)
        Set rFind = .Find(What:=v(i), LookIn:=xlFormulas, LookAt:=xlWhole, _
                          MatchCase:=False, SearchFormat:=False)
        If Not rFind Is Nothing Then
            Do
                rFind.ClearContents
                Set rFind = .FindNext(rFind)
            Loop Until rFind Is Nothing
        End If
        Set rFind = Nothing
    Next i
End With
     
End Sub