Bueno yo utilizo excel y visual basic.

Bueno lo que yo quiero que haga es que copie una hoja de Excel a otra y a la vez me la guarde en una carpeta ya tengo el código y me lo hace que lo aguarda pero solo me deja una hoja por día pero ahora mi problema es que quiero que me lo guarde más de una vez por día el documento no sé si me puedan ayudar.

Sub Botón164_Haga_clic_en()
Dim NomArchivo As String
Sheets("PEDIDOS_DE_COMPRAS").Copy
ruta = "G:\CFE\RECEPCIÓN\lista-"
Fin = Format(Date, "dd-mm-yy")
NomArchivo = "pedidos=" & Fin
On Error Resume Next
ActiveWorkbook.SaveAs Filename:=ruta & NomArchivo
End Sub