Autosave messes with my VBA solution

[Big Lar]

With AutoSave ON:
I must close the active workbook after saving as .xlsx
Then, copy the active workbook again,
Delete the unnecessary columns and
SaveAs the .cvs

Otherwise, AutoSave performs the deletion and Autofit on the original copied worksheet.

This code works, but seems kind of “clunky”. Is there a better way?

Sheets("PLAYERS").Copy
 
Application.ScreenUpdating = False
Application.DisplayAlerts = wdAlertsNone
 
‘Saves Updated Roster    
    ActiveWorkbook.SaveAs Filename:=Environ("UserProfile") & "\OneDrive\The Razz\DataBases\PLAYERS2018.xlsx", _
        FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
 
ActiveWorkbook.Close
 
 
Sheets("PLAYERS").Copy
 
Application.ScreenUpdating = False
Application.DisplayAlerts = wdAlertsNone
 
'Creates updated Outlook Contact List
        Columns("F:GZ").Select
    Selection.Delete Shift:=xlToLeft
   
      Range("A1").Select
Columns("A:E").AutoFit
 
    ActiveWorkbook.SaveAs Filename:=Environ("UserProfile") & "\OneDrive\The Razz\DataBases\RazzContacts2018.csv", _
        FileFormat:=xlCSV, CreateBackup:=False
 
ActiveWorkbook.Close
 
 
ActiveWorkbook.SaveAs Filename:=ActiveWorkbook.FullName, FileFormat _
       :=xlOpenXMLWorkbookMacroEnabled, Password:="", WriteResPassword:="", ReadOnlyRecommended:= _
      False, CreateBackup:=False
     
 
UserForm1.Show modeless
 
With UserForm1
       .Height = 535.5
       .Top = 50
        .Left = 710
       
    End With
 
End Sub