The difficult I do immediately, the impossible takes a little bit longer.

Exporting to Excel Snippets...

Most code here has been tested and, in some cases, used.  Any code untested will be marked accordingly.  We offer no support for the code or your ability to implement it.  If you require assistance please post in one of the newsgroups listed here.  It is strongly recommended you test the code in a copy of your database.  In other words, use at your own risk!
Add a Filter to Columns A thru Y...
After Exporting your Data to a Template Rename to Excel Workbook...
Copy/Paste Cell Values, such as, Formulas...
Make sure Column maintains its Date/Time Format even after Export...
Insert a Worksheet from One Workbook into Another Workbook...
Public Function InsertSP()
On Error GoTo InsertPageErr_Err

     Dim xlapp As Object
     Dim xlWbkNew As Object
     Dim xlWbkOld As Object
     Dim strSheetName As String

        Set xlapp = CreateObject("Excel.Application")
        Set xlWbkNew = xlapp.Workbooks.Open(Forms![frmExport]![txtExportPath] & "/" & Forms![frmExport]![txtNewFileName])
        Set xlWbkOld = xlapp.Workbooks.Open(Forms![frmExport]![txtExportPath] & "/" & Forms![frmExport]![txtOldFileName])

        strSheetName = Forms![frmExport]![txtLDSheetName]

     xlWbkOld.Worksheets(strSheetName).Copy After:=xlWbkNew.Worksheets(xlWbkNew.Worksheets.Count)
     xlWbkNew.Worksheets(strSheetName).Name = Forms![frmExport]![txtNewFileName] & " SP"
     xlWbkOld.Close SaveChanges:=True
     xlWbkNew.Close SaveChanges:=True

   Set xlWbkNew = Nothing
   Set xlWbkOld = Nothing
   DoCmd.Hourglass False
 Exit Function

   MsgBox "Error # " & Err.Number & " This Worksheet already in the specified Workbook!"
 Resume InsertPageErr_Exit

End Function
Make Columns A thru Y AutoFit to the Values Inserted...