У меня есть этот макрос, который я написал:
Dim lastColumn As Long
lastColumns = wkbWorkbook2.Worksheets(2).Cells(1, Columns.Count).End(xlToLeft).Column 'this is the highlighted part in debug
SourceRange.Copy
wkbWorkbook2.Worksheets(2).Cells(1, lastColumns + 1).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Первоначально код выше является частью большего кода. Но когда я выполняю его, он выдает ошибку времени выполнения 1004.
Но когда я попытался выполнить это в одиночку, это работает. Так где я могу ошибаться?
Благодарю.