请问大师们，报错：应用程序定义或对象定义错误如何解决

@洪七公

ThisWorkbook.Worksheets("Sheet4").Range(Cells(a, 1), Cells(b, y)).Copy sh.Range(Cells(1, 1), Cells(b - a, y))

0126

上传附件，

lightsnow

错误原因是由于需要进行复制的表，并非active状态，解决办法
Dim sh As Worksheet
Set sh = Sheets.Add
Sheets("Sheet1").Select
Range(Cells(1, 1), Cells(2, 3)).Copy sh.Range(Cells(1, 1))