Sub Macro1()
'
' Macro1 Macro
'

'
    Range("A8:G20").Select
    ActiveSheet.Shapes.AddChart2(227, xlLine).Select
    ActiveChart.SetSourceData Source:=Range("Sheet2!$A$8:$G$20")
    Range("L7").Select
    ActiveSheet.ChartObjects("Chart 1").Activate
    ActiveSheet.Shapes("Chart 1").IncrementLeft 395.25
    ActiveSheet.Shapes("Chart 1").IncrementTop -138.75
End Sub