Removing empty data points in an array

Hi Guys,

I've created some code that stores an array of product info and a user form that enables the user to select certain product properties to search for within the array.

Once the products the user is searching for are found within the original array (using a series of if statements) the info of that product is copied into a new array called "search results".

I want to display the results to the user, but currently the new array is the same size as the original, and the products found in the search are in the same locations as they were in the original. I've added some more code to reposition the products and then remove the empty array points however it doesn't seem to work. It's not recognising that there is any data in the points in the array. See the code below:

'Below trying to remove empty array locations
Dim NewSearchRe As Variant

ReDim NewSearchRe(1 To UBound(SearchResults, 1), 1 To UBound(SearchResults, 2))

'The below repositions the search results in the array to the first few positions
For c = 1 To UBound(NewSearchRe, 2)
For r = 1 To UBound(NewSearchRe, 1)
If SearchResults(r, c) <> "" Then
i = i + 1
NewSearchRe(i, c) = SearchResults(r, c)
End If
Next r
Next c

'the below transposes the array so that the second array dimension can be resized and then transposes back

With WorksheetFunction
SearchResults = .Transpose(NewSearchRe)
ReDim Preserve NewSearchRe(LBound(NewSearchRe, 1) To UBound(NewSearchRe, 1), LBound(NewSearchRe, 2) To i)
NewSearchRe = .Transpose(NewSearchRe)
End With


Are there any alternatives to the above code that you know of??