SaveCopyAs macro

I am so very close. Now my issue is saving the workbook. I want to use SaveCopyAs rather then SaveAs, but I get an error with the way I am using it.

Please help!

Private Sub CommandButton1_Click()
Dim sSaveAsFilePath As String
Dim c As Range
Dim rng As Range
Dim sRange1 As String
    Dim sRange2 As String
    Dim sRange3 As String
    Dim sRange4 As String
    Dim sRange5 As String
    
    sRange1 = "C:\Users\" & Environ$("Username") & _
    "\Desktop\"
    sRange2 = Sheets("Calculations").Range("B2")
    sRange3 = "x"
    sRange4 = Sheets("Calculations").Range("B1")
    sRange5 = "rad.g"
    
Dim ans As Long
sSaveAsFilePath = sRange1 + sRange2 + sRange3 + sRange4 + sRange5

 Application.Sheets("G Code").Select
 
 For Each c In Sheets("G Code").Range("B1:B20000")
    If Not Len(c) = 0 Then
        If rng Is Nothing Then
            Set rng = c.Offset(, -1).Resize(1, 8)
        Else
            Set rng = Union(rng, c.Offset(, -1).Resize(1, 8))
        End If
    End If
Next c

rng.Select
Selection.Copy
Sheets.Add.Name = "Final Code"
Sheets("Final Code").Select
ActiveSheet.Range("A1").Select
Selection.PasteSpecial Paste:=xlPasteValues, _
Operation:=xlNone, SkipBlanks:=False, Transpose:=False

Application.DisplayAlerts = False
     
   ActiveWorkbook.SaveCopyAs sSaveAsFilePath, xlTextWindows, _
     CreateBackup:=False
     ActiveWorkbook.Save
     
     Application.ScreenUpdating = False
     ActiveWindow.SelectedSheets.Delete
     ActiveWindow.Close
     Application.DisplayAlerts = True
    Application.ScreenUpdating = True
        
    Windows("Mill Radius CNC Code Generator").Activate

    Sheets("Calculations").Select
     

End Sub

I am trying to:

1. Copy a rng
2. create new temporary sheet
3. Paste data to new sheet
4. save the active sheet (i assume a copy is the right way) as txt file
5. leave my original workbook as the active sheet
6. delete the new temporary sheet

If I do a simple SaveAs, it works, but the whole workbook is titled the new name and then I close it in the code and my old workbook is not open any longer.

Private Sub CommandButton1_Click()
Dim sSaveAsFilePath As String
Dim sfilename As String

Dim c As Range
Dim rng As Range
Dim sRange1 As String
    Dim sRange2 As String
    Dim sRange3 As String
    Dim sRange4 As String
    Dim sRange5 As String
    
    sRange1 = "C:\Users\" & Environ$("Username") & _
    "\Desktop\"
    sRange2 = Sheets("Calculations").Range("B2")
    sRange3 = "x"
    sRange4 = Sheets("Calculations").Range("B1")
    sRange5 = "rad.g"
    
Dim ans As Long
sSaveAsFilePath = sRange1 + sRange2 + sRange3 + sRange4 + sRange5

sfilename = sRange2 + sRange3 + sRange4 + sRange5

 Application.Sheets("G Code").Select
 
 For Each c In Sheets("G Code").Range("B1:B20000")
    If Not Len(c) = 0 Then
        If rng Is Nothing Then
            Set rng = c.Offset(, -1).Resize(1, 8)
        Else
            Set rng = Union(rng, c.Offset(, -1).Resize(1, 8))
        End If
    End If
Next c

rng.Select
Selection.Copy
Sheets.Add.Name = "Final Code"
Sheets("Final Code").Select
ActiveSheet.Range("A1").Select
Selection.PasteSpecial Paste:=xlPasteValues, _
Operation:=xlNone, SkipBlanks:=False, Transpose:=False

Application.DisplayAlerts = False
     
   ActiveWorkbook.SaveAs sSaveAsFilePath, xlTextWindows, _
     CreateBackup:=False
     
     ActiveWorkbook.Save
     
     Workbooks.Open ("Mill Radius CNC Code Generator")
     
     
     Windows(sfilename).Activate
     
     Application.ScreenUpdating = False
     ActiveWindow.SelectedSheets.Delete
     ActiveWindow.Close
     Application.DisplayAlerts = True
    Application.ScreenUpdating = True
        
    Windows("Mill Radius CNC Code Generator").Activate

    Sheets("Calculations").Select
     

End Sub

This works.