excel怎么每5行创建一个折线图

现在已经录入了做一个折线图的宏，怎么才能连续创建，每5行就创建一个折线图呢

Sub 宏1()
Rows("1:5").EntireRow.Select

ActiveSheet.Shapes.AddChart2(227, xlLine).Select

ActiveChart.SetSourceData Source:=Range("绘图辅助!$1:$5")

End Sub