Excel VBA阵列到非连续命名范围

I'm trying to get data from an array into a non-contiguous named range. I keep ending up with the first cell of data is all of the named range cells. I think I hurt my brain. I'm looking at my code and not even sure why I wrote it, so I'll just leave that part out.I'm trying to get data from an array into a non