在VBA中将范围提取到数组变量时键入错误

I'm trying to extract a worksheet range to be used in an array variable. However, whenever I try to run the code I get a "Run Time Error '13': Type Mismatch" message. I think that my problem is that the range I am trying to assign to the array has no type, but I can't figure out how to get around this. Could I please get some pointers on what I'm missing? ThanksI'm trying to extract a worksheet range to be u