So, what you need is just the following script.
Make a macro out of it or just paste it in the chat window.
ProofCode:/run for i=1,6 do _G["GlyphFrameGlyph"..i]:SetScript("OnClick",function()PlaceGlyphInSocket(i)StaticPopup1:Hide()end)end
Before
https://i.imgur.com/OALBkzy.jpg
https://i.imgur.com/W5JjvrR.jpg
After i was able to change all of these with 0 tomes
https://i.imgur.com/ONYSCT4.jpg
Enjoy.