Thread: Run-time error 1004 - Cannot copy sheet to new file

Hello, I'm trying to copy, using code, a sheet to another workgroup.
I make this steps: Create a new file with name "file1.xlsx" and select the "totais" sheet from the "oldfile.xlsx" and when the code do the move command it gives an error : "run-time error 1004: Excel cannot insert the sheets into the destination workbook, because it contains fewer rows and columns than the source workgroup...".
They advise to copy only the cells that have data.
My source file has 1048576 rows by 'XFD' columns and the destination only has 65536rows by 'IV' columns.
i don't know why my source file has so many columns and rows. I don't need them...
Any help?
Code:

If NumTrab = 0 Then 'Se seleccionou TUDO então faz:
Workbooks.Add
ActiveWorkbook.SaveAs Filename:=TempFile, FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
TempFile = ActiveWorkbook.Name
Windows(FicheiroActual).Activate
If Cb_5.Value = True Then 'TOTAIS ANO
Call TotaisAno
Sheets("TOTAIS").Move Before:=Workbooks(TempFile).Sheets(1)
End If
If Cb_2.Value = True Then 'Horas Trabalhadas
For x = 0 To UBound(ListaPessoal)
Nome = ListaPessoal(x, 1)
Call FazFolhaPessoal(Nome)
If FolhaInexistente = False Then
Workbooks(FicheiroActual).Sheets(ListaPessoal(x, 1)).Move After:=Workbooks(TempFile).Sheets(1)
End If
Next x
End If
If Cb_4.Value = True Then 'Horas de Acerto Mensais
Call Calcula_HA_Mensal
Workbooks(FicheiroActual).Sheets("Horas Acerto Mensal").Move Before:=Workbooks(TempFile).Sheets(1)
End If
If Cb_3.Value = True Then 'HCI's Mensais
Call Calcula_HCI_Mensal
Workbooks(FicheiroActual).Sheets("HCI Mensal").Move Before:=Workbooks(TempFile).Sheets(1)
End If

Workbooks(TempFile).Save 'Guarda Ficheiro
Workbooks(TempFile).Close
A = MsgBox("Dados gravados com sucesso no ficheiro " & TempFile, vbInformation + vbOKOnly)
Exit Sub
End If

Thank you,

Mário

You need to post the code, remember to use Code Tags