Excel Vba Remove Empty Cells From Array To Number