Excel Vba Get Maximum Value From Array To Arraylist