Copiar una Hoja en una Hoja nueva

Crearemos una hoja nueva dandole nombre y copiaremos todo los datos de otra hoja con el nombre especifico y lo pegaremos en la hoja nueva creada.

Sheets.Add.Name = "nombre hoja nueva"
Sheets("nombre de la hoja a copiar").Select
Cells.Select
Range("C1").Activate
Selection.Copy
Sheets("nombre de la hoja nueva").Select
Cells.Select
ActiveSheet.Paste
Range("a1").Activate