Как создать новые листы на основе списка?

Я пытаюсь создать новые рабочие книги для каждой группы, найденной на листе 10, на основе списка имен групп из другого листа с именем GroupFileNames.

Чтобы упростить устранение неполадок, текущий код создает новые рабочие листы вместо рабочих книг. У меня уже есть код, необходимый для создания книг.

Моя проблема в том, что мой код не будет перебирать список имен групп. Он создает лист для первой группы (ABC Corp) и копирует соответствующие данные, но никогда не создает лист для следующей группы (XYZ Corp).

Я пробовал разные способы зацикливания, используя «До», «Для каждого» и т. д.

Sub CreateWkBookByGroupName()
    
    
    Dim Transaction() As Variant
    Dim GroupNameTransactions() As Variant
    Dim TransactionCounter As Long
    Dim GpnTransactionCounter As Long
    Dim Counter As Long
    Dim i As Integer
    Dim gfn As Worksheet
    Set gfn = ThisWorkbook.Sheets("GroupFileNames")
    Dim groupName As String
    
    
    i = 1
    groupName = gfn.Range("A" & i)
    
    'Store entire database in the Transaction array
    Transaction = Range("A1").CurrentRegion
    'Starting in the i row of the database loop through each transaction
    
    For TransactionCounter = i To UBound(Transaction, 1)
       
        'If the thirteenth column contains a value equal to groupName...
        If Transaction(TransactionCounter, 13) = groupName Then
            '...increase the GpnTransactionCounter by 1
            GpnTransactionCounter = GpnTransactionCounter + 1
            
            'Redimension the GroupNameTransaction array with each instance _
            of a GroupName transaction.
            ReDim Preserve _
              GroupNameTransactions(1 To 13, 1 To GpnTransactionCounter)
            'Start a counter to populate the GroupNameTransactions array
            For Counter = 1 To 13
                'The GroupNameTransactions array equals the current transaction
                GroupNameTransactions(Counter, GpnTransactionCounter) _
                  = Transaction(TransactionCounter, Counter)
            Next Counter
        End If
    Next TransactionCounter
    'Add a new sheet
    Worksheets.Add
    'Add the headings in the first row of the Transactions array
    Range("A1:M1") = Transaction
    'Transpose the GroupNameTransaction array onto the new sheet
    Range("A2", Range("A2").Offset(GpnTransactionCounter - 1, 12)) _
    = Application.Transpose(GroupNameTransactions)
    'Autofit columns
    Columns.AutoFit
    
End Sub

Эти данные должны создать два новых листа, один для ABC Corp, а другой для XYZ Corp. На каждом новом листе должны быть все столбцы, принадлежащие их группе.

Это список имен групп, которые мой код использует для сравнения с именами групп на Листе 10.