This code will overwrite the sheet named Visible with the contents of the sheet named hidden:
Sheets("Hidden").Cells.Copy Destination:=Sheets("Visible").Range("A1")
You can put code in the Workbook_Open() sub to have it run when the workbook is opened.