尝试从VBA中的数组中删除空值时下标错误

I am trying to run a Simple formula to remove blank entries from an array. The array I am using is loaded from a field in a data table I have set up in excel called TY. The name of this field is TY[L3 Number]. I want to keep this array dynamic, as it might change as user add or delete rows from the data table. The test data I am using has 218 rows, 210 of which have duplicate entries (which I will want to remove later), and 8 entries of "".I am trying to run a Simple formula to remove b