Динамический выбор смещения Массив

Question

Я сопоставляю данные, введенные в несколько форм, которые хранятся в сетевом расположении.У меня есть до 10 строк (26 столбцов), которые нужно вставить в лист сопоставления.

Я пытаюсь скопировать этот массив и вставить в книгу сопоставления.

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

For P = 0 To ct1 - 1

Application.DisplayAlerts = False
    Workbooks.Open Filename:=FoundFiles(P)

DIM bulk as range   

   Sheets("bulk_data").Visible = True
   Sheets("bulk_data").Activate

   With ActiveSheet
blk = 0
   Range("B2").Select
    Do Until Selection = ""
        Selection.Offset(1, 0).Select
        blk = blk + 1
    Loop

Теперь я хочу скопировать «B2: Z (blk)» и вставитьэто к следующей пустой строке в конечном файле

Я думал,

bulk = Selection.Offset(Range("b2"), 0, blk, 26)

будет работать, но это не так.

Как только у меня будет этот массив, я хочу вставить (разобрать?) Его в последнюю пустую строку в листе сопоставления.

Workbooks(DataBaseName).Activate
    Sheets("Input Tab").Activate
    Range("A2").Select
    Do Until Selection = ""
        Selection.Offset(1, 0).Select
    Loop

bulk.PasteSpecial Paste:=xlPasteValues

next p

Я бы хотел, чтобы массив BULK был вставлен вдругой лист, но