Try this macro
Sub arraychart()
Set sr = Range("G13")
For i = sr.Row To sr.End(xlDown).Row
Charts.Add
ActiveChart.ChartType = xlColumnClustered
ActiveChart.SetSourceData Source:=Sheets("Sheet1").Range(sr.Offset(i - sr.Row, 0), sr.Offset(i - sr.Row, 3)), PlotBy:=xlRows
ActiveChart.Location Where:=xlLocationAsObject, Name:="Sheet1"
ActiveChart.Parent.Top = Int((i - sr.Row) / 2) * 200 + 300
ActiveChart.Parent.Left = ((i - 1) Mod 2) * 300 + 100
ActiveChart.Parent.Width = 300
ActiveChart.Parent.Height = 200
Next i
Range("G13").Select
End Sub