Программа в VBA

У меня есть сформированый массив (по коду поймете), мне нужно из этого массива вычленить четные числа отдельно их в столбик написать (сформировать ещё один массив для них) и тоже самое проделать для нечетных. Помогите, пожалуйста, просто не могу понять как это. Только объясните, пожалуйста, на моей программе, с моими переменными и данными.