Excel crashes with Worksheets().copy

I do not know about MACs but this code is a sample found that after editting will work in Excel

Sub SaveAs()
 
    Dim FName           As String
    Dim FPath           As String
    Dim NewBook         As Workbook
 
    FPath = "G:\Exceptions"
    FName = "Exceptions" & Format(Date, "ddmmyy") & ".xls"
 
    Set NewBook = Workbooks.Add
 
    ThisWorkbook.Sheets("DataSort").Copy Before:=NewBook.Sheets(1)
 
    If Dir(FPath & "\" & FName) <> "" Then
        MsgBox "File " & FPath & "\" & FName & " already exists"
    Else
        NewBook.SaveAs Filename:=FPath & "\" & FName
    End If
 
End Sub

Can you show me that part of the code?
It probably can be done in one line, but since I cannot see what you wrote, I can't tell

In that case instead of workbooks add you create a variable that revers to an opened workbook (or in not open, opens it) en then with some minor editing you can use the same code.
But, does running the code now, create a new workbook with a copy ad the sheet?

These to macros might work

Public Sub SaveCopy2NewBook()
    Dim FName           As String
    Dim FPath           As String
    Dim NewBook         As Workbook
    FPath = "G:\Exceptions"
    FName = "Exceptions" & Format(Date, "ddmmyy") & ".xls"
    Set NewBook = Workbooks.Add
    ThisWorkbook.Sheets("DataSort").Copy Before:=NewBook.Sheets(1)
    If Dir(FPath & "\" & FName) <> "" Then
        MsgBox "File " & FPath & "\" & FName & " already exists"
    Else
        NewBook.SaveAs Filename:=FPath & "\" & FName
    End If
End Sub

Public Sub SaveCopy2WorkBook(WB As Workbook)
    Dim FName           As String
    Dim FPath           As String
    FPath = WB.Path
    On Error GoTo errorFound
    ThisWorkbook.Sheets("DataSort").Copy Before:=WB.Sheets(1)
    GoTo exitSub

errorFound:
    MsgBox "Error: " & Err.Description, vbCritical, "Error Number: " & Err.Number

exitSub:
Err.Clear
On Error GoTo 0
End Sub

The first one is the one that just creates a new workbook and does it

The second one expects and open workbook and that you pass the workbook as parameter


Your own code whatever you have

and the syntax is

Call SaveCopy2WorkBook(the workbook)