Archivo que guarda con otro nombre

[SALAVERRINO]

Buenas tardes, tengo un pequeño problema con esta Macro, y esta macro me permite generar un archivo nuevo ARCHIVO DESTINO, pero no lo está generando como debe ser, porque tanto el ARCHIVO ORIGEN como ARCHIVO DESTINO se quedan con los mismos datos. Y lo que necesito es que los datos del ARCHIVO ORIGEN se copie todo al ARCHIVO DESTINO, pero en el ARCHIVO ORIGEN solamente borrarse desde la Columna B8 hasta la Columna AO5000 (resaltado) ya que el resto no resaltado contiene formulas.

Nota: Al momento de generar la macro, pregunta si deseo "usar el archivo por default", porque lo que doy la opción NO, para que luego me permita colocar el nuevo nombre que uno quiere.

Agradezco su apoyo y adjunto código de la macro, porque archivo sobrepasa capacidad requerida.

Sub guardar()

nombre = ActiveWorkbook.Name

carpeta = ActiveWorkbook.Path

filaa = carpeta & "\" & nombre

nombrar = MsgBox("usar el archivo por default", vbYesNo, "AVISO")

If nombrar = vbYes Then

filab = carpeta & "\" & "plantilla electronica1" & ".xlsm"

Else

titulo = InputBox("¿Como se va a llamar el archivo?", "AVISO")

filab = carpeta & "\" & titulo & ".xlsm"

End If

ActiveWorkbook.Save

ActiveWorkbook.SaveAs Filename:=filab, FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False

xnombre = ActiveWorkbook.Name

Workbooks.Open (filaa)

Workbooks(xnombre).Close savechanges = True

Sheets("planilla").Range(Cells(8, 1), Cells(lastRow, 50)).ClearContents

End Sub

ARCHIVO ORIGEN.rar