Импорт слайдов в начале и в конце раздела презентации

Question

Я пытался импортировать два слайда в существующую презентацию, но я хотел импортировать слайд 1 в начале презентации и слайд 2 в конце презентации.

Ниже приведен скрипт, который у меня есть работал над, но не понимаю, как работать над моим вышеупомянутым требованием

Sub Merge()
    Dim sPath As String
    Dim dlgOpen As FileDialog
    Dim x As Integer
    Dim vrtSelectedItem As Variant

    'Set path to current dirrectory
    sPath = CurDir
    If Right$(sPath, 1) <> "\" Then sPath = sPath & "\"

    'Set File Picker dialog
    Set dlgOpen = Application.FileDialog(Type:=msoFileDialogFilePicker)

    'Set initial path and view, set multiselect capability
    With dlgOpen
        .InitialFileName = "C:\G-Tools\Coverpage\WestRock_CoverPage.pptx"
        .InitialView = msoFileDialogViewList
        .Title = "WestRock_CoverPage.pptx"
        .AllowMultiSelect = True

        'If user click on OK, insert selected files after last slide of current presentation
        If .Show = -1 And .SelectedItems.Count > 0 Then
            For x = 1 To .SelectedItems.Count
                ActivePresentation.Slides.InsertFromFile .SelectedItems(x), ActivePresentation.Slides.Count
            Next
        Else
            'User Cancelled
        End If
    End With
End Sub

Если кто-то может помочь мне с этим, это будет очень большая помощь для меня.

Заранее спасибо.