group charts and paste as picture

Hope you might help me in solving my problem.

Here is what I am trying to do..:

I have an excel sheet that has charts…

I found a code to line up the charts in vertical order..
Now I am trying to select each 3 chart as a group like 1 to 3, 3 to 6, 6 to 9 and paste them as picture. My knowledge on vba and coding is quite limited and thats why I am asking ur help

It would be great if u have time to help me on this issue…
Thanks..

Sub LineUpMyCharts()
         Dim MyWidth As Single, MyHeight As Single
         Dim NumWide As Long
         Dim iChtIy As Long, iChtCt As Long, iChtSl As Long
         
         MyWidth = 650
         MyHeight = 180
         NumWide = 3

         iChtCt = ActiveSheet.ChartObjects.Count
         For iChtIy = 1 To iChtCt
             With ActiveSheet.ChartObjects(iChtIy)
                 .Width = MyWidth
                 .Height = MyHeight
                 .Left = (iChtIy)
                 .Top = Int(iChtIy) * (MyHeight)
             End With
         Next