Thank you all for taking the time for me. The issue has been resolved. I used the function to copy all the titles from the source data as search titles. This method may not be optimal, but at least it helps me solve the problem for now.
Below is the entire code. If there is a better way, please...
Here is my entire VBA code. I have very limited knowledge of Excel and VBA, so I would greatly appreciate your help.
Private Sub input_search_Change()
Dim arr(), result, i As Long, a As Long, dk As String
dk = input_search.Text
arr = Sheets("Sheet1").Range("A4:D20006").Value...