Выбор строк в таблице на основе одинаковых значений ячеек в столбце и циклическое перемещение по таблице

Question

У меня есть рабочая тетрадь с 2 листами.Один лист - это таблица, которая обновляется каждый месяц с информацией о выставлении счетов, а один лист - это предустановка для счета.

У меня есть рабочий код VBA, который берет (вручную) выбор строк и затем копирует соответствующую информацию из этих строк в предварительно установленный счет на втором листе.Затем он автоматически экспортируется в формате PDF и сохраняется в папку.

Этот код / ​​модуль работает безупречно.Выбор строк основан на номере транзакции в столбце.Я выбираю (вручную) все строки с одним и тем же номером транзакции.

Теперь вместо того, чтобы вручную проходить по строкам и выбирать соответствующие строки на основе номера транзакции, а затем запускать модуль, я хотел бы автоматизировать этопроцесс.

То, что у меня есть на данный момент:

Sub PrintAll()

    Dim i As Long, j As Long
    Dim Arr
    Dim DB As Worksheet

    Set DB = Sheets("Data")

    '~~> Set Range here
    Arr = DB.Range("A2:X400").Value

    For i = 1 To UBound(Arr, 1)
        For j = 2 To UBound(Arr, 2)

            If Arr(i, 7) = Arr(i + 1, 7) Then
                Arr(i, j).Select
                Call InvoiceCreator.InvoiceCreator
            End If

        Next j
    Next i
End Sub 

Идея состоит в том, чтобы выбрать массив на основе оператора if, что значения в столбце 7 совпадают, и затем запустить модуль на основевыбранный массив.Это может быть совершенно неправильно, поэтому я прошу вас, ребята, за ваш опыт по этому поводу.