Excel Vba Remove Empty Rows From Array To String