将一个工作表中的单元格范围复制并粘贴到另一个工作表中

我试图从一个工作表（Sheet2）复制到另一个工作表（Sheet1）中的单元格的不同范围的单元格的范围，但是当我运行下面，我得到运行时错误（1004）应用程序定义或对象定义的错误。 任何帮助表示赞赏！

Option Explicit Sub deletecolumns() Workbooks(1).Worksheets(1).Columns(2).Select Workbooks(1).Worksheets(1).Columns(2).Delete Sheets("Sheet2").Range("I4:I29").Copy Destination:=Sheets("Sheet1").Range("H4:H29") End Sub 

Answer 1

删除这一行：

 Workbooks(1).Worksheets(1).Columns(2).Select 

无论如何，在做一个.delete之前不需要它