Filter data w.r.t. different search input

Hello,
I have one excel file in which 40000+ data is present. All data is clutter. attached is one of the example.
To refine the data I want to filter the data like below.
In first search box I will put some text e.g. "cough" When I will click it's command button, it will search whole sheet where cough word is present & will show me only the rows which contains "cough" word. Then if needed I will highlight that rows manually.
Then in next search box I will put another word & when I click it's command button it will search the sheet for that text & show me the only rows which contains that text. Then if needed I will highlight that rows manually.
Same I will do for next search3, search4 & so on.
So when I click small command button which is exactly in front of the each search column it will search that specific text only. But when I click the "command button2" (big button below all the small buttons)then it will search the rows where all that words present in search1, search2, search3, search4, likewise are present & will show the only rows which contains all that text.
But, sometimes while searching, I want to skip few words (words are pvt, ltd, inc & ele). e.g. If I put "cough ltd" in any search box then while searching it will skip the "ltd". & will search the remaining word in file. But these words will skip only when there is "YES" in F3 coloumn If it is "NO" in F3 colomn then it will search the whole text ("cough ltd").
Please help someone to write the program for this.

Hello, I have created the code for individual search & total search. Please refer attached excel with code. But after any search if I change the color of any row (e.g. If I change the color of one row in yellow color) then again in next search if that row found in next search then that yellow color will again changed to Red (i.e. Red color which I keep for filter row.Can someone help me to skip the row which has color other than red (color=255) while filtering?

Individual search code is prepared as below:
Sub search_1()
Dim srchtxt1 As String
finRow = Sheets(1).Cells(Rows.Count, 1).End(xlUp).Row
fincol = Sheets(1).Cells(10, Columns.Count).End(xlToLeft).Column
srchtxt1 = Sheets(1).Cells(1, 1).Text
Sheets(1).Cells.Interior.ColorIndex = 0
For j = 10 To finRow
For i = 1 To fincol
If ((InStr(LCase(Sheets(1).Cells(j, i).Text), LCase(srchtxt1))) >= 1) Then
Rows(j).Interior.Color = 255
'If Not ActiveSheet.AutoFilterMode Then
'Sheets(1).Range(j, i).AutoFilter
'End If
End If
Next i
Next j
Range("A10:P10").Select
Selection.AutoFilter
Range("A10").Select
ActiveSheet.Range("$A$10:$P$18").AutoFilter Field:=1, Criteria1:=RGB(255, 0 _
, 0), Operator:=xlFilterCellColor
End Sub

Comeplete Search code is as below:
Sub total_search()
Dim srchtxt1 As String
Dim srchtxt2 As String
Dim srchtxt3 As String
Dim srchtxt4 As String
Dim srchtxt5 As String
Dim cntr1, cntr2, cntr3, cntr4, cntr5, srcnt1, srcnt2, srcnt3, srcnt4, srcnt5 As Integer
finRow = Sheets(1).Cells(Rows.Count, 1).End(xlUp).Row
fincol = Sheets(1).Cells(10, Columns.Count).End(xlToLeft).Column

Sheets(1).Cells.Interior.ColorIndex = 0

If (IsEmpty(Sheets(1).Cells(1, 1)) = False) Then
srchtxt1 = Sheets(1).Cells(1, 1).Text
cntr1 = cntr1 + 1
End If
If (IsEmpty(Sheets(1).Cells(2, 1)) = False) Then
srchtxt1 = Sheets(1).Cells(2, 1).Text
cntr1 = cntr1 + 1
End If
If (IsEmpty(Sheets(1).Cells(3, 1)) = False) Then
srchtxt2 = Sheets(1).Cells(3, 1).Text
cntr1 = cntr1 + 1
End If
If (IsEmpty(Sheets(1).Cells(4, 1)) = False) Then
srchtxt1 = Sheets(1).Cells(4, 1).Text
cntr1 = cntr1 + 1
End If
If (IsEmpty(Sheets(1).Cells(5, 1)) = False) Then
srchtxt1 = Sheets(1).Cells(5, 1).Text
cntr1 = cntr1 + 1
End If
For j = 10 To finRow
srcnt1 = 0
srcnt2 = 0
For i = 1 To fincol
If ((IsEmpty(Sheets(1).Cells(1, 1)) = False And (InStr(LCase(Sheets(1).Cells(j, i).Text), LCase(srchtxt1))) >= 1)) Then
'Rows(j).Interior.Color = 255
'If Not ActiveSheet.AutoFilterMode Then
'Sheets(1).Range(j, i).AutoFilter
'End If
srcnt1 = 1
End If
If ((IsEmpty(Sheets(1).Cells(2, 1)) = False And (InStr(LCase(Sheets(1).Cells(j, i).Text), LCase(srchtxt2))) >= 1)) Then
srcnt2 = 1
End If
If ((IsEmpty(Sheets(1).Cells(3, 1)) = False And (InStr(LCase(Sheets(1).Cells(j, i).Text), LCase(srchtxt3))) >= 1)) Then
srcnt3 = 1
End If
If ((IsEmpty(Sheets(1).Cells(4, 1)) = False And (InStr(LCase(Sheets(1).Cells(j, i).Text), LCase(srchtxt4))) >= 1)) Then
srcnt4 = 1
End If
If ((IsEmpty(Sheets(1).Cells(5, 1)) = False And (InStr(LCase(Sheets(1).Cells(j, i).Text), LCase(srchtxt5))) >= 1)) Then
srcnt5 = 1
End If
Next i
cntr2 = srcnt1 + srcnt2 + srcnt3 + srcnt4 + srcnt5
If (cntr1 = cntr2 And cntr1 >= 1) Then
Rows(j).Interior.Color = 255
End If
Next j
Range("A10:P10").Select
Selection.AutoFilter
Range("A10").Select
ActiveSheet.Range("$A$10:$P$18").AutoFilter Field:=1, Criteria1:=RGB(255, 0 _
, 0), Operator:=xlFilterCellColor
End Sub

Please help.