Macro to insert COG point for selected body?

What is an easy way to add to add a 3D sketch point at the COG/COM of a selected body in a weldment?

Thank you all in advance,

Jack

SolidworksWeldments