Exporting

try this:

Private Sub Save()
    ActiveSheet.Copy
    With ActiveSheet.UsedRange
        .Copy
        .PasteSpecial xlValues
        .PasteSpecial xlFormats
    End With
    Application.CutCopyMode = False
    ActiveWorkbook.SaveAs ActiveSheet.Name & Format(Date, "yyyymmdd")
End Sub