Exportar hoja excel sin la MACRO

Puedes guardar la hoja como otro libro y guardar como xlsx, con eso ya no se guardan las macro.}

Prueba el siguiente código

Sub Macro6()
'
    Application.ScreenUpdating = False
    Application.DisplayAlerts = False
    ruta = ThisWorkbook.Path & "\"
    arch = Sheets("Hoja1").Name
    Sheets("Hoja1").Copy
    ActiveWorkbook.SaveAs Filename:=ruta & arch & ".xlsx", _
        FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
    ActiveWorkbook.Close
    MsgBox "Hoja guardada"
End Sub

.

'S aludos. Dante Amor. Recuerda valorar la respuesta. G racias

.

Avísame cualquier duda

.

¿Pero el código lo pego dentro del botón? ¿De exportar base de datos?

Me lo guarda con la macro incluida..

Si es como excel, entonces pon el código en tu botón. Por ejemplo:

Private Sub CommandButton3_Click()
'exportar a hoja
    If ActiveSheet.AutoFilterMode Then ActiveSheet.AutoFilterMode = False
    u = Range("F" & Rows.Count).End(xlUp).Row
    f1 = Format(ComboBox1.Value, "mm/dd/yyyy")
    If ComboBox2.Value = "" Then
        f2 = f1
    Else
        f2 = Format(ComboBox2.Value, "mm/dd/yyyy")
    End If
    ActiveSheet.Range("$A$2:$H$" & u).AutoFilter Field:=5, Criteria1:= _
        ">=" & f1, Operator:=xlAnd, Criteria2:="<=" & f2
    ActiveSheet.Range("$A$2:$H$" & u).Copy
    Sheets.Add
    ActiveSheet.Range("A1").PasteSpecial xlAll
    Application.ScreenUpdating = False
    Application.DisplayAlerts = False
    ruta = ThisWorkbook.Path & "\"
    arch = ActiveSheet.Name
    ActiveSheet.Copy
    ActiveWorkbook.SaveAs Filename:=ruta & arch & ".xlsx", _
        FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
    ActiveWorkbook.Close
    MsgBox "Hoja guardada"
End Sub

sal u dos

Aun así me guarda la macro, y no me guarda tal cual como en el mismo formato de celdas y diseño de la hoja que necesito exportar.

No guarda las macros, si revisas el nuevo libro "Hoja1" u "hoja2" entra a VBA ahí verás que no hay ninguna macro.

quisiera que me guardara el mismo formato de la hoja, me guarda diferente , adjunto foto

Y me deberia guardar asi

¿Quieres hacer un filtro y luego guarda la hoja con el filtro en un nuevo archivo?

Envíame tu último archivo

Archivo Enviado! espero atento a su respuesta , gracias