De Esta manera puedes copiar una hoja
Por ejemplo:
Sub Copiar()
Sheets("Hoja1").Select
Sheets("Hoja1").Copy Before:=Sheets(1)
End Sub
en este caso,Selecciona la hoja con nombre "Hoja1" y la copia en la posicion 1 (antes de la 1, quedando la nueva como 1
)
espero que te sirva
Saludos