If IsMissing(filterColumn) Or IsMissing(filterValue) Then
values = Application.Transpose(LocationsTable.ListColumns(columnName).DataBodyRange.value)
Else
Dim src As Range
Set src = Application.Evaluate("INDEX(" & LocationsTable.Name & "[" & columnName & "],MATCH(" & filterValue & "," & LocationsTable.Name & "[" & filterColumn & "],0),1):INDEX(" & LocationsTable.Name & "[" & columnName & "],MATCH(" & filterValue & "," & LocationsTable.Name & "[" & filterColumn & "],1),1)")