Excel Vba Dynamic Array In Loop