VBA从一个数组复制值并将它们存储到另一个数组中

I am hoping to find help with this current VBA problem. I have looked throughout Stack Overflow and other Google searches, but can't seem to find what I'm looking for.I am hoping to find help with this current VBA