How can I create a macro for placing solid sphere at active point (set by user) at varying co-ordinates?

As shown in the image there are various active points. I want to create a macro to place a solid sphere of diameter entered by user at various co-ordinates which is variable.

I am getting a code like this as shown below in mvba for active points at fixed co-ordinates.

How can I modify this code for active points at variable co-ordinates?