VBA 복사 및 붙여 넣기 방법이 작동하지 않습니다.

Question

간단한 복사 및 붙여 넣기 매크로를 쓰려고하는데 마지막 줄까지 작동합니다. 마지막 행에 도달하면 붙여 넣기 기능이 작동하지 않는다고 말합니다. 나는 이것이 왜 일어나고 있는지에 대해 정말로 혼란스럽고 이것에 대한 도움은 크게 감사 할 것입니다.

Sheet2.Columns("A:B").Insert Shift:=xlToRight 
Sheet2.Columns("F:G").Cut 
Sheet2.Activate 
Columns("A:B").Select 
ActiveSheet.Paste 
Sheets("SourceData").Columns("A:B").Insert Shift:=xlToRight 
Sheets("SourceData").Activate 
Columns("A:B").Select 
ActiveSheet.Paste     <-LINE THAT THROWS ERROR 

내 오류 메시지가

Answer 1

Paste Method of Worksheet Class failed가 두 번째 컷을 필요로 (또는 복사) 이미 비워 때문에 오류를 받고

Answer 2

두 번째 Activesheet.Paste 명령으로 이동하는 명령입니다 클립 보드에 첫 번째 "잘라 내기/붙여 넣기"작업이 포함되어 있습니다.

대신이 시도 :

Sheet2.Columns("A:B").Insert Shift:=xlToRight 
Sheet2.Columns("F:G").Cut 
Sheet2.Activate 
Columns("A:B").Select 
ActiveSheet.Paste 
Activesheet.Columns("A:B").Copy 

Sheets("SourceData").Columns("A:B").Insert Shift:=xlToRight 
Sheets("SourceData").Activate 
Columns("A:B").Select 
ActiveSheet.Paste