新しいスライドを5枚追加する（条件：最終スライドレイアウト同じ）

試しに作成
どうなることやら

Sub 新しいスライドを追加する()
Dim i As Long
i = 1
Do While i <= 5
With ActivePresentation.Slides
.AddSlide _
Index:=.Count + 1, _
pCustomLayout:=.Item(.Count).CustomLayout
End With
i = i + 1
Loop
End Sub