Merging cells in excel to flat data in vba