Guru do Excel e Power BI

Boa noite
Como trocar o resultado que aparece na box e mostrar diretamente em uma célula previamente informada

Boa noite!

uma opção é você substituir (MsgBox por Range("A1").Value) por exemplo, onde A1 sé a célula para aparecer o texto.

ficando assim:
Att