从一个工作表复制到一个工作表时出现错误1004

I get error 1004 with this code below. The objective is to combine about 30 sheets with the same cell value in A1 into one sheet called 'Data'. I get error 1004 with this code below. The obje