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...