Excel Vba Add Value To Dynamic Array