VBA копировать и вставлять цикл на основе списка

Question

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

Формулы для копирования и вставки цикла с описаниями на вкладке «Сводка»

Список начинается с B2 на отдельной вкладке с именем Master

Answer 1

Я полагаю, что приведенное ниже должно работать, чтобы быть в безопасности, я бы удалил данные в Медине-15-17, строки 11 на:

'The 2 refers to column "B" on the Master worksheet, change to 1 if in column "A"
summary_row = Worksheets("Master").Cells(Rows.Count, 2).End(xlUp).Row

For Each cell In Worksheets("Master").Range("B2:B" & summary_row)
    'this gets a new row count for each iteration 
    temp_row = Worksheets("Summary").Cells(Rows.Count, 1).End(xlUp).Row

    With Worksheets("Summary")
        'this copy/pastes the templated range 
        .Range("A1:E7").Copy Range("A" & temp_row + 2)

        'this inserts, from the master worksheet, the title 
        .Range("A" & temp_row + 2).Value = cell
    End With
Next cell