I recorded the macro by moving the chart in same sheet, I did not get any error.

What is the error that you got.


recorded macro is

Range("D9:E13").Select
Charts.Add
ActiveChart.ChartType = xlColumnClustered
ActiveChart.SetSourceData Source:=Sheets("Sheet1").Range("D9:E13"), PlotBy _
:=xlColumns
ActiveChart.Location Where:=xlLocationAsObject, Name:="Sheet1"
With ActiveChart
.HasTitle = False
.Axes(xlCategory, xlPrimary).HasTitle = False
.Axes(xlValue, xlPrimary).HasTitle = False
End With
ActiveChart.SeriesCollection(2).Select
ActiveChart.ChartArea.Select
ActiveSheet.Shapes("Chart 1").IncrementLeft 81#
ActiveSheet.Shapes("Chart 1").IncrementTop 190.5
ActiveSheet.Shapes("Chart 1").IncrementLeft -3.75
ActiveSheet.Shapes("Chart 1").IncrementTop -56.25
ActiveSheet.Shapes("Chart 1").IncrementLeft 21.75
ActiveSheet.Shapes("Chart 1").IncrementTop -40.5
ActiveSheet.Shapes("Chart 1").IncrementLeft -228#
ActiveSheet.Shapes("Chart 1").IncrementTop 38.25