try this,

Sub x()

    Dim rngBoxA As Range
    Dim rngBoxB As Range
    Dim rngData As Range
    Dim lngIndex As Long
    
    Set rngBoxA = Range("B3:J11")
    Set rngData = Range("C6:E7")
    
    Set rngBoxB = rngBoxA.Offset(12)
    Set rngData = rngData.Offset(12)
    
    For lngIndex = 1 To 3
        rngBoxA.Copy rngBoxB
        With ActiveSheet.ChartObjects(ActiveSheet.ChartObjects.Count).Chart
            With .SeriesCollection(1)
                .Values = rngData.Rows(2)
                .XValues = rngData.Rows(1)
            End With
        End With
        Set rngBoxB = rngBoxB.Offset(12)
        Set rngData = rngData.Offset(12)
    Next
    
End Sub