Sub SpecifyExactLocation() Dim WS As Worksheet
Set WS = Worksheets("Sheet1")
WS.Shapes.AddChart(xlColumnClustered, _
Left:=WS.range("C11").Left, _
Top:=WS.range("C11").Top, _
Width:=WS.range("C11:J11").Width, _
Height:=WS.range("C11:C30").Height).Select
ActiveChart.SetSourceData Source:=WS.range("A1:E4") End Sub