Excel Vba Replace Substring Pandas