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.