Excel VBA Merge PDF Files that contain strings then next string

[BalloutMoe]

Hello, first time posting here. I have found plenty of helpful code and would like your help. Every month I get a list of statements and invoices that I would like to make a code that combines these pdfs and save them under the statement file. For example:
Teststatement.pdf
test1
testpart2
testpart3
testpart4
Anotherstatement.pdf
another1
anotherpart2
anotherpart3
and so on.
So I would like to merge all the test pdf files and save them under the teststatement.pdf file with the statement pages being the first. Anyway can this be done. Any help would be appreciated. Thank you

 

[BalloutMoe]

and second file combining all "another" invoices and saving them under anotherstatement.pdf file.

 

[BalloutMoe]

Sub mergepdf()
 Dim objCAcroPDDocDestination As Acrobat.CAcroPDDoc
    Dim objCAcroPDDocSource As Acrobat.CAcroPDDoc, LastRow As Range
    Dim PDFfiles As Range, PDFfile As Range
    Dim n As Long
    
   With ActiveWorkbook.ActiveSheet
        Set PDFfiles = .Range("A1", .Cells(.Rows.Count, "A").End(xlUp)) 'I need to make this look for a string and combine then go to next string in range
    End With
    'Create Acrobat API objects
    
    Set objCAcroPDDocDestination = CreateObject("AcroExch.PDDoc")
    Set objCAcroPDDocSource = CreateObject("AcroExch.PDDoc")
    
    'Open first PDF file and merge other PDF files into it
    
    n = 0
    For Each PDFfile In PDFfiles
        n = n + 1
        If n = 1 Then
            objCAcroPDDocDestination.Open PDFfile.Value
        Else
            objCAcroPDDocSource.Open PDFfile.Value
            If Not objCAcroPDDocDestination.InsertPages(objCAcroPDDocDestination.GetNumPages - 1, objCAcroPDDocSource, 0, objCAcroPDDocSource.GetNumPages, 0) Then
                MsgBox "Error merging " & PDFfile.Value
            End If
            objCAcroPDDocSource.Close
        End If
    Next
    Debug.Print FileName
    'Save merged PDF files as a new file
    
    objCAcroPDDocDestination.Save 1, ActiveWorkbook.ActiveSheet.Range("M1") 'save this file under the statement file
    objCAcroPDDocDestination.Close
    
    Set objCAcroPDDocSource = Nothing
    Set objCAcroPDDocDestination = Nothing

    MsgBox "Created " & ActiveWorkbook.ActiveSheet.Range("M1")
    
End Sub

 

[BalloutMoe]

Any help?