VBA: PasteSpecial метод класса Range failed

Question

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

Sheets("New_Orders").Range("B3:E29").Cut 

Sheets("Previous_Orders").Range("B31").PasteSpecial Paste:=xlPasteValues 

Это больше кода, который должен сделать то же самое, что не работает ни

Sheets("New_Orders").Select 
Range("B3:E29").Select 
Selection.Cut 
Sheets("Previous_Orders").Select 
Range("B:B").Find("").Select 
ActiveSheet.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False 

Я попытался Selection.Copy, а также. Это дало ту же ошибку

Answer 1

Как указано выше в комментарии, вы можете вставлять все только при использовании Cut. Если нужны только значения, то сразу назначьте значения, затем очистите диапазон.

Sub foo() 
Dim rng As Range 
Dim lastRow As Long 

Set rng = Sheets("New_Orders").Range("B3:E29") 
With Sheets("Previous_Orders") 
    lastRow = .Cells(.Rows.Count, 2).End(xlUp).Row + 1 
    .Cells(lastRow, 2).Resize(rng.Rows.Count, rng.Columns.Count).Value = rng.Value 
End With 
rng.Clear 
End Sub