macro para guardar archivo reemplazando existente

[axel07_89]

Hola que tal. Tengo una macro para gurdar archivos de excel el diversos formatos concatenado al nombre la fecha del sistema:

Sub guardar()
Dim arch() As String
Dim hoja() As String
Dim nombre As String
Dim nombre1 As String
Dim nombre2 As String
Application.DisplayAlerts = False
fechaf = " " & Format(Now, "dd-mm-yy hhmmss")
ruta = ActiveWorkbook.Path
n_hoja = ActiveSheet.Name
n_arch = ActiveWorkbook.Name
hoja = Split(n_hoja, " ")
nombre = ruta & "\" & hoja(0) & fechaf & ".csv"
ActiveSheet.SaveAs Filename:=nombre, FileFormat:=xlCSV
arch = Split(n_arch, " ")
nombre1 = ruta & "\" & arch(0) & fechaf & ".xlsx"
ActiveWorkbook.SaveAs Filename:=nombre1, FileFormat:=51
nombre2 = ruta & "\" & arch(0) & fechaf & ".xlsm"
ActiveWorkbook.SaveAs Filename:=nombre2, FileFormat:=52

'Application.DisplayAlerts = True
End Sub


Necesito que el archivo nuevo remplace al anterior, lla que el código tal cual, me va generando un archivo cada y que cierro excel (call guardar()), también me gustaría poder mandar llamar el procedimiento de guardar al darle clic en el botón guardar ¿se podrá? intente con Workbook_BeforeSave pero me trababa excel. Gracias de antemano!!

PD. El nombre del libro Debe de ser Libro 01092011 132315.xslm y el de la hoja es: Hoja 101092011 132315. (para posibles prubebas)