Как вставить статические данные в новый столбец на одном листе для каждой новой строки, добавленной в таблицу на другом листе

Question

Я новичок в VBA и программировании в целом и нахожусь на начальных этапах создания инструмента управления проектами.Процесс использования этого инструмента начинается с того, что сотрудник вводит список счетов, которые необходимо открыть.Для каждой учетной записи существует стандартизированный список задач, которые необходимо выполнить, чтобы эта учетная запись была официально открыта.

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

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

Dim New_Markets As Range
Set New_Markets = ThisWorkbook.Worksheets("List of Markets").Range("A1:B104")

Dim LastRow As Long
LastRow = ThisWorkbook.Worksheets("SKAs").ListObjects("Table1").Range.Rows.Count

Dim SKAs As Range
Set SKAs = ThisWorkbook.Worksheets("SKAs").Range("A1:E" & LastRow)

For Each Rows In SKAs
'I want to add a column of New_Markets to the sheet "Market to Open"

Answer 1

Это был ответ, который я искал:

Sub Adding_New_SKAs()

Dim New_Markets As Range
Set New_Markets = ThisWorkbook.Worksheets("List of Markets").Range("A1:B104")

Dim LastRow As Integer
LastRow = ThisWorkbook.Worksheets("SKAs").Range("A1").CurrentRegion.Rows.Count

Dim i As Integer, Index As Integer

Index = 0

For i = 2 To LastRow
   New_Markets.Copy Sheet2.Range("A1").Offset(0, Index)
   Index = Index + 3
Next i

Columns.AutoFit

End Sub