Remove consecutive spaces and replace with single comma

Have a list of names. For a majority of names the cell will contain the persons last name; followed by 2 or more spaces; followed by the first name. What I would like to accomplish is to remove in case in which there are two or more consecutive spaces and replace all with a comma and single space. Example of output below

original data "ANDERSON MICHAEL"

replace with "ANDERSON, MICHAEL"

Is this possible with a formula or do I need to use VBA. I have attached a small sample in column A and the desired results in column B.

Thanks