Excel Vba Put Range Into Arraylist Remove Last Element