Boa noite, tenho uma planilha que tem várias datas, porém na mesma célula tem texto

ex: na célula A1 tem: data do consumo 01/06/2018

eu poderia clicar em substituir e colocar substituir "data do consumo " por "" ficaria do jeito que quero, porém gostaria de algo mais rápido, então pensei em criar um botão em vba ou macro que fizesse isso com apenas um click, ai criei uma macro, só que ao executar a macro ela me dá o resultado da data mês no lugar de dia e dia no lugar de mês.

ex: data do consumo 01/06/2018 eu executo a macro ela fica 06/01/2018

já queria neste mesmo código vba ou macro excluir outro texto

está "profissional: joão" queria que excluísse a palavra "profissional: " e ficasse só "joão"