Listbox Values Repeating

How can I modify the codes below so that the results in the listbox would reflect only the actual data? Some previous information stays in the listbox making the search inaccurate. I have tried to clear the listbox first before querying another but results are the same.

On the first loop, the queried items are accurately listed in Worksheets("Search"). For example, if the data being searched on has only one result, entries in this sheet would only show one. But when it is shown in the listbox, it at most times show previously queried information.

Also, how can I dynamically adjust the array so that no vertical scrollbar would appear if the queried results fit perfectly in the listbox? The array below would automatically assign 10 rows in the listbox even if the information shown consumes only less than 10 rows.

Option Explicit
Dim MyArray(10, 5)

Public MyData As Range, c As Range

Sub FindCaseNo()

Application.ScreenUpdating = False

Dim FirstAddress As String 'what to find
Dim rSearch As Range 'range to search

Dim fndA, fndB, fndC, fndD, fndE, fndF, fndG As String
Dim fndH, fndI, fndJ, fndK, fndL, fndM, fndN, fndO, fndP, fndQ, fndR, fndS As String
Dim head1, head2, head3, head4, head5 As String ' heading s for list
Dim i, intFind, intCount As Integer
i = 1