remove blank lines from cells in excel (vb macro)