'Graph 1
Dim rChartStartCell As range
Dim rDataStartCell As range
Dim rXVals As range
Dim rYVals As range
Dim LastRow As Long
Dim i As Long
Dim j As Long
Dim LeftPos1 As Long
Dim WidthPos1 As Long
LeftPos1 = 35
WidthPos1 = 620
With Worksheets("Sheet2")
Set rChartStartCell = .range("B2")
Set rDataStartCell = .range("C41")
For i = 1 To 1
LastRow = .Cells(.Rows.count, rDataStartCell.Column).End(xlUp).Row
If LastRow >= 41 Then
Set rXVals = range(rDataStartCell, .Cells(LastRow, rDataStartCell.Column))
Set rYVals = rXVals.Offset(, 6).Resize(, 2)
With .ChartObjects.Add(Left:=LeftPos1, Width:=WidthPos1, Top:=rChartStartCell.Top, Height:=rChartStartCell.Resize(26).Height).chart
.ChartType = xlXYScatter
Do While .SeriesCollection.count > 0
.SeriesCollection(1).Delete
Loop
For j = 1 To rYVals.Columns.count
With .SeriesCollection.NewSeries
If j = 1 Then
.Name = "=" & rDataStartCell.Offset(, 2).Address(, , , True)
Else
.Name = "=" & rDataStartCell.Offset(-1, 7).Address(, , , True)
End If
.XValues = rXVals
.Values = rYVals.Columns(j)
End With
Next j
End With
End If
Set rChartStartCell = rChartStartCell.Offset(, 8)
Set rDataStartCell = rDataStartCell.Offset(, 10)
Next i
End With
'Graph2
Dim LeftPos2 As Long
Dim WidthPos2 As Long
LeftPos2 = 823
WidthPos2 = 620
With Worksheets("Sheet2")
Set rChartStartCell = .range("L2")
Set rDataStartCell = .range("M41")
For i = 1 To 1
LastRow = .Cells(.Rows.count, rDataStartCell.Column).End(xlUp).Row
If LastRow >= 41 Then
Set rXVals = range(rDataStartCell, .Cells(LastRow, rDataStartCell.Column))
Set rYVals = rXVals.Offset(, 6).Resize(, 2)
With .ChartObjects.Add(Left:=LeftPos2, Width:=WidthPos2, Top:=rChartStartCell.Top, Height:=rChartStartCell.Resize(26).Height).chart
.ChartType = xlXYScatter
Do While .SeriesCollection.count > 0
.SeriesCollection(1).Delete
Loop
For j = 1 To rYVals.Columns.count
With .SeriesCollection.NewSeries
If j = 1 Then
.Name = "=" & rDataStartCell.Offset(, 2).Address(, , , True)
Else
.Name = "=" & rDataStartCell.Offset(-1, 7).Address(, , , True)
End If
.XValues = rXVals
.Values = rYVals.Columns(j)
End With
Next j
End With
End If
Set rChartStartCell = rChartStartCell.Offset(, 8)
Set rDataStartCell = rDataStartCell.Offset(, 10)
Next i
End With
'Graph 3
Dim LeftPos3 As Long
Dim WidthPos3 As Long
LeftPos3 = 1608
WidthPos3 = 620
With Worksheets("Sheet2")
Set rChartStartCell = .range("V2")
Set rDataStartCell = .range("W41")
For i = 1 To 1
LastRow = .Cells(.Rows.count, rDataStartCell.Column).End(xlUp).Row
If LastRow >= 41 Then
Set rXVals = range(rDataStartCell, .Cells(LastRow, rDataStartCell.Column))
Set rYVals = rXVals.Offset(, 6).Resize(, 2)
With .ChartObjects.Add(Left:=LeftPos3, Width:=WidthPos3, Top:=rChartStartCell.Top, Height:=rChartStartCell.Resize(26).Height).chart
.ChartType = xlXYScatter
Do While .SeriesCollection.count > 0
.SeriesCollection(1).Delete
Loop
For j = 1 To rYVals.Columns.count
With .SeriesCollection.NewSeries
If j = 1 Then
.Name = "=" & rDataStartCell.Offset(, 2).Address(, , , True)
Else
.Name = "=" & rDataStartCell.Offset(-1, 7).Address(, , , True)
End If
.XValues = rXVals
.Values = rYVals.Columns(j)
End With
Next j
End With
End If
Set rChartStartCell = rChartStartCell.Offset(, 8)
Set rDataStartCell = rDataStartCell.Offset(, 10)
Next i
End With
'Graph 4
Dim LeftPos4 As Long
Dim WidthPos4 As Long
LeftPos4 = 2470
WidthPos4 = 620
With Worksheets("Sheet2")
Set rChartStartCell = .range("AZ2")
Set rDataStartCell = .range("AG41")
For i = 1 To 1
LastRow = .Cells(.Rows.count, rDataStartCell.Column).End(xlUp).Row
If LastRow >= 41 Then
Set rXVals = range(rDataStartCell, .Cells(LastRow, rDataStartCell.Column))
Set rYVals = rXVals.Offset(, 6).Resize(, 2)
With .ChartObjects.Add(Left:=LeftPos4, Width:=WidthPos4, Top:=rChartStartCell.Top, Height:=rChartStartCell.Resize(26).Height).chart
.ChartType = xlXYScatter
Do While .SeriesCollection.count > 0
.SeriesCollection(1).Delete
Loop
For j = 1 To rYVals.Columns.count
With .SeriesCollection.NewSeries
If j = 1 Then
.Name = "=" & rDataStartCell.Offset(, 2).Address(, , , True)
Else
.Name = "=" & rDataStartCell.Offset(-1, 7).Address(, , , True)
End If
.XValues = rXVals
.Values = rYVals.Columns(j)
End With
Next j
End With
End If
Set rChartStartCell = rChartStartCell.Offset(, 8)
Set rDataStartCell = rDataStartCell.Offset(, 10)
Next i
End With
