Excel VBA - redim arr时类型不匹配

I had an dynamic array where is value is from the worksheet. If condition is meet, I would like to delete the element that meet the condition. The code was from I had an dynamic array where is value is from t