type mismatch error when trying to populate array

Hello!

I'm attempting to get a Query table to filter with an array made from the values in column A of another sheet.

I'm having the worst of luck...I was pretty sure this would work but for some reason I'm getting a "type mismatch error '13'" attached to the line that says "sArray(i) = var1(i, 1)"

My code:

Sub SON()

Dim srange As Range
Set srange = Sheet13.Range("A2:A60")
Dim var1 As Variant
Dim sArray() As String
Dim i As Long
var1 = srange.Value

ReDim sArray(1 To UBound(var1))

For i = 1 To (UBound(var1))
    sArray(i) = var1(i, 1) ' here's where the error is...
Next

Sheet12.ListObjects("Table_Query_from_ELHR").Range.AutoFilter Field:=5, _
        Criteria1:=sArray, Operator:=xlFilterValues
        
End Sub

Could anyone tell me what I'm doing wrong?

If you step through the code does it give you that error on the first iteration of the loop?

Or it could be that there are more values in one array then you've dim'd for the second. You redim your array to Ubound of var but var starts from 0 not 1 so it will have at least one more value than sArray can hold.

FWIW there's no need for Option Base 1, var1 will be populated with a 1-indexed 2-dimensional array.

The problem was probably, as you mentioned, blank values in the array.