creating 2 charts per row for each compound

[viji]

Hi group,
I have writen the code which works partially of my objective.
I want the 2 graphs for each row next to the table on the right with one compound below the other. I have attached the example file as well.
This code creates one graph only with the required objective except for the location.
Code:
Sub CreateChart()
Dim numRows As Long
Dim x
numRows = ActiveSheet.Cells(Rows.Count, "A").End(xlUp).Row
For x = 3 To numRows
ActiveSheet.Shapes.AddChart.Select
With ActiveChart
Do While .SeriesCollection.Count > 1
.SeriesCollection(1).Delete
Loop
.SetSourceData Source:=Range("'Sheet1'!$B$" & x & ":$G$" & x)
.SeriesCollection(1).Name = "Sample 1"
.PlotBy = xlRows
.ChartType = xlXYScatter
.HasTitle = True
.ChartTitle.Text = "=Sheet1!R" & [x] & "C1"
.Axes(xlCategory, xlPrimary).HasTitle = True
.Axes(xlCategory, xlPrimary).AxisTitle.Characters.Text = "Timepoints"
.Axes(xlValue, xlPrimary).HasTitle = True
.Axes(xlValue, xlPrimary).AxisTitle.Characters.Text = "Plus values"
.SeriesCollection.NewSeries
.SeriesCollection(2).Values = "='Sheet1'!$H$" & x & ":$M$" & x
.SeriesCollection(2).Name = "Sample 2"
.SeriesCollection.NewSeries
.SeriesCollection(3).Values = "='Sheet1'!$N$" & x & ":$S$" & x
.SeriesCollection(3).Name = "Sample 3"

End With
Next x
End Sub

what I am expecting to get
1)I want two charts for each row now by changing the column names I am executing this code twice.
2)I am getting the graphs at the same location exactly one on the other. Is there a way to place the graphs one below the other and the second graph to the right of the graph for the first row.I want these graphs to be next to the table on the right.
3)If possible I want the 2 graphs for each row to be of the same scale.

Waiting for a reply,
Thanks,
viji