Excel Vba Remove Empty Cells From Array