Excel VBA如何循环冗余条件

Question

您好，社区，我正在尝试通过循环复制粘贴来简化我的代码。以下代码成功：1）从一个产品刷新一个单元格，2）将刷新的表格复制到特定的幻灯片编号。

我需要复制程序x7次 - 而不是有一个很长的代码，我想我可以循环使用以下条件。 - 刷新产品（从8到1），计算 - 然后复制粘贴excel表到它的幻灯片组合是这样的。产品（表格）转到演示文稿（幻灯片）产品8转到幻灯片9产品7转到幻灯片8等。

Option Explicit
Sub ExportToPPT()

    Dim ppApp As PowerPoint.Application
    Set ppApp = New PowerPoint.Application
    Dim Sel As Range
    Dim source As Range`

    Workbooks("WWDWT.xlsm").Activate
    Sheets("Graph Data").Select
    Range("E4").Value = "8"
    Application.Calculate

    Set Sel = Selection
    Set source = ActiveWorkbook.Sheets("waterfall").Range("D1")
    ActiveWorkbook.Sheets("waterfall").Range("D1:AE40").Copy

    Set ppSlide = ppPres.Slides(9)
    ppSlide.Shapes.PasteSpecial ppPasteBitmap

End Sub

我怎么能循环Range("E4").Value = "8"改为7,6,5,4 ...然后将它们分配给随后的幻灯片（8），7,6,5等Set ppSlide = ppPres.Slides(9) ..感谢所有提前帮助