Невозможно Вставить мой выбор в VBA в определенном диапазоне

Question

Private Sub Daily_Click() 
Sheets("Sheet1").Range("A1:P1").Select 
Selection.Copy 
Sheets("Sheet2").Range("A1:P1").Select 
ActiveSheet.Paste 
End Sub 

Это бросает ошибку 1004 говоря: «Применение - Определено/Объект Defined» ошибки

Я попытался изменить линию 4 до

Sheets("Sheet2").Select 
ActiveSheet.Paste 

Это работает. Мне нужно знать, почему первая часть кода не будет работать

Answer 1

Лучше не использовать Select.

Легкий способ скопировать что-то:

Sheets("Sheet1").Range("A1:P1").Copy Destination:=Sheets("Sheet2").Range("A1:P1") 

Edit: или с Select:

Sub Daily_Click() 

Sheets("Sheet1").Activate 
Sheets("Sheet1").Range("A1:P1").Select 
Selection.Copy 
Sheets("Sheet2").Activate 
Sheets("Sheet2").Range("A1:P1").Select 
ActiveSheet.Paste 

End Sub