Copy active workbook to and save new workbook Macro

I am trying to have my team click a button and have the active sheet copy to a new workbook and then save it based on the value of a specific cell. The issue I am running into is that it saves the original file and then copy's the workbook. I wont it to do the opposite. Here is the Formula I currently have.

Sub Saveworksheet()
'
' Saveworksheet Macro
'   ActiveSheet.Select
    Dim FName As String
    Dim FPath As String
        
    FPath = "E:"
    FName = ActiveSheet.Range("K3").Text
    
    Sheet1.Copy
ThisWorkbook.SaveAs Filename:=FPath & "\" & FName
End Sub