объединение ячеек

[OlegAB7819]

Здравствуйте!
Извиняюсь за возможно глупый вопрос, поискал по форуму, ничего не нашел или не понял.
С вба общаюсь впервые, имел дело с в основном только с С, ASM
Но сейчас нахожусь в ступоре, надеюсь на вашу помощь, или тыкните пальцем где можно найти ответ.

В общем виде задача: Имеется книга с несколькими листами. На первом (я его назвал "Начало") вводятся в столбец наименования товаров, ..... Необходимо эти наименования скопировать в формы на других листах (акт, накладная...)
Но в формах наименование товара состоит из нескольких ячеек в строку. Т.е. их надо объединить. И после скопировать туда наименования. Для этого на первом листе сделал кнопку, и подвязал к макросу:
Dim Act As Long
Dim Mindex As Long
Dim Start As Long
Start = 19
Act = 18
Mindex = 1

Do While x < 10000
If Worksheets("Начало").Cells(Start + Mindex, 1) <> "" Then
Worksheets("Акт").Cells(Act + Mindex, 1).EntireRow.Insert
Worksheets("Акт").Range(Cells((Act + Mindex), 2), Cells((Act + Mindex), 3)).Select -(на этой строчке выдается ошибка "excel Application-defined or object-defined error"
Worksheets("Акт").Range(Cells(Act + Mindex, 2), Cells(Act + Mindex, 3)).Merge

Хотя создаю новую книгу, пишу:
Worksheets("Книга1").Range(Cells(1, 1), Cells(1, 2)).Select
Worksheets("Книга1").Range(Cells(1, 1), Cells(1, 2)).Merge
Работет

Подскажите пожалуйста чего не хватает, где ошибка?

[AnnNet]

Попробуйте вместо
Worksheets("Акт").Range(Cells((Act + Mindex), 2), Cells((Act + Mindex), 3)).Select
Worksheets("Акт").Range(Cells(Act + Mindex, 2), Cells(Act + Mindex, 3)).Merge
написать так:
Range(Worksheets("Акт").Cells(((Act + Mindex), 2), Worksheets("Акт").Cells((Act + Mindex), 3)).Select
With Selection
.MergeCells = False
End With
Selection.Merge (True)

[SAS888]

Хочу обратить внимание, что Ваша строка кода

Worksheets("Акт").Range(Cells(Act + Mindex, 2), Cells(Act + Mindex, 3)).Merge

будет работать без ошибки лишь в том случае, когда лист "Акт" активный (тогда ссылка на лист вообще не требуется). Если лист не активен, то ссылку на лист требуется повторять при каждом обращении к ячейке (диапазону). Именно поэтому, при создании новой книги у Вас все работает, т.к. она автоматически становится активной.
Замените фрагмент Вашего кода

Worksheets("Акт").Cells(Act + Mindex, 1).EntireRow.Insert
Worksheets("Акт").Range(Cells((Act + Mindex), 2), Cells((Act + Mindex), 3)).Select
Worksheets("Акт").Range(Cells(Act + Mindex, 2), Cells(Act + Mindex, 3)).Merge

на такой:

x = Act + Mindex
With Worksheets("Акт")
    .Rows(x).Insert: .Range(.Cells(x, 2), .Cells(x, 3)).Merge
End With

[OlegAB7819]

AnnNet к сожалению не сработало, но все равно спасибо за внимание.

SAS888 ОГРОМНОЕ СПАСИБО, работает! И отдельное спасибо за комментарий. Жаль, что не могу плюсануть, или не нашел где.

[Xpoft]

или не нашел где.

слева под ником пользователя весы

[OlegAB7819]

Xpoft Спасибо, подумал, что не то, но туда уже писанул