Te dejo una macro extraída de mi manual Programación VBA y adaptada para tu caso. Debes ajustar la ruta destino (asumo que quedará en la misma carpeta) y el nombre del libro (coloqué un nombre de ejemplo)
Sub CopiaHoja()
'x Elsamatilde
'indico ruta y nombre del libro a guardar -- AJUSTAR
ruta = ThisWorkbook.Path
nombre = "CopiaHoja1"
'copio la hoja 1
Sheets("Hoja1").Copy
'creamos un nuevo objeto Libro
Set wb = ActiveWorkbook
With wb
'guardamos el libro en la carpeta destino indicada en la variable. La extensión es sin macros.
.SaveAs ruta & "\" & nombre & ".xlsx"
'cerramos el nuevo libro - OPCIONAL
.Close
End With
'se libera el objeto
Set wb = Nothing
End SubEl cierre del libro copia es opcional.
Sdos. Si esto resuelve tu consulta no olvides valorarla y finalizarla.
Elsa