Dim lastC As Long
lastC = wb2.Worksheets(2).Cells(1, Columns.Count).End(xlToLeft).Column 'highlighted in debug
SourceRange.Copy
wb2.Worksheets(2).Cells(1, lastC + 1).PasteSpecial Paste:=xlPasteValues,       Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

Выше код, который у меня есть, это часть большего макроса. Когда я запускаю его, он дает мне ошибку времени выполнения 1004, определенную приложением или ошибкой, определенной объектом.

Как часть большего кода, он не работает, но когда я попытался отделить его и запустить, он работает нормально.

Я работаю с несколькими книгами и рабочими листами. У меня есть этот один файл .xlsm который объединяет 4 других файла .xls в один.

Благодарю.

0