Moving down a chart when inserting rows

Hi,

One way would be as follows.
Name a cell within the range you are moving 'Anchor'
Make a note of the number of rows and columns that the chart is offset.

Now use the following where r & c in the .Offset are the constants for the offset.

Sub MoveChart()
Dim lRowHeight As Long, x As Integer, iRow As Integer
    ActiveSheet.ChartObjects("yourchart").Activate
    ActiveChart.ChartArea.Copy
    Range("Anchor").Offset(-r, c).Select
    ActiveSheet.Paste
    ActiveSheet.ChartObjects("yourchart").Delete

End Sub

HTH