Split cells long text with Max 40 character to multiple row using Macro

Help needed.

I have a large excel file with ~50K lines to limit one of the cells long text to multiple rows.
Example is attached.

I have try to put up a macro but I have problem to split the cells with proper word splitting.

Thanks.