Position Chart In Range

I have created a button in an excel worksheet that when clicked, creates new tabs each containing a chart. I have tried to modify the code to position the chart within a specific range of cells on each tab, however, I have not been able to get it to work. Below is my code. Please see the code following 'Add the Chart.

VB:
Sub AddCharts()
Dim lastr As Long, r As Long
Dim shname As String
Dim ltitles As Range, rng As Range, rData As Range, x As Range, tbl As Range, r2Data As Range

On Error Goto ErrorCatch:

Set ltitles = Sheet1.Range("A3:N3")
Set rng = Sheet1.Range("A4:A" & Sheet1.Range("A3").End(xlDown).Row)

[Code] ......

ErrorCatch:
'Debug.Print Err.Number
'Debug.Print Error
If Err.Number = 1004 Then
shname = x.Value & x.Row + 1
End If
If Err.Number = 20 Then Exit Sub
Resume
End Sub