Excel VBA - 使用SELECT CASE但现在需要一个数组

I've currently got the code below. There can only currently be seven values for "ins" and so the code suffices, however as of next month I have been told that there will be over 900 values!I've currently got the code below. There can on