copy a worksheet to new workbook with filename linked to cell

I admit I am not good with VBA at all, but have pieced together some code from reading other forum threads. I would appreciate any help or suggestions anyone may have!!!

I have a Command Button on Worksheet 1 of Workbook 1. When pressed, I would like for it to copy the entirety of Worksheet 2 (as values since it contains links to pivot reports) to a new Workbook (eg Workbook 2). I would like for the file name and path to be linked to user entered text in cell U11 in Worksheet 1.

This is my code so far:

Private Sub CommandButton1_Click()

Application.ScreenUpdating = False

    Dim wbTarget As Workbook 'Destination File Name
    Dim wsTarget As Worksheet
    
    Dim wbSrc As Workbook
    Dim wsSrc As Worksheet
    
    Set wbTarget = ActiveWorkbook
    Set wsTarget = wbTarget.Worksheets("Sheet1")
        
    Set wbSrc = Workbooks.Add
    Set wsSrc = wb.Src.Worksheets("S Datasheet")
        
    wsTarget.Range("A1:A").ClearContents
    
    Application.CutCopyMode = False
    
    wsSrc.Range("A1:A").Copy
    
    wsTarget.Range("A1").PasteSpecial xlPasteAll
    
    Application.CutCopyModeMode = False
    
    wbSrc.Save
    wb.Src.Close
    
    Set wbSrc = Nothing
    Set wbTarget = Nothing
        
    Application.ScreenUpdating = True
    
    DstFile = Application.GetSaveAsFilename _
    (InitialFileName:=ActiveWorkbook.Sheets("Worksheet 1").Range("U11").Value & ".xls", _
    Title:="Save As")
    If DstFile = "False" Then
        MsgBox "File Not Saved, Actions Cancelled."
        Exit Sub
    Else
        wb.SaveAs DstFile 'Save file
        wb.Close 'Close file
    End If
    Workbooks(".xls").Activate
    MsgBox ("File Saved at" & DstFile)
    Application.ScreenUpdating = True
    
End Sub

Okay, I've uploaded a mock-up of my workbook. (I think I did this properly, let me know if you cannot access the file). I've also outlined my goals for the end product below.

1.) The user selects various parameters via slicers on "GUI" sheet. Number of cells/columns in "Worksheet 1" are dynamic based on user selection.
2.) The user enters pathname and filename into cell U11 on "GUI" sheet.
2.) Entirety of Worksheet 1 is copied and pasted into new workbook with path name and file name equal to entered value in cell "GUI" sheet, cell "U11"

Thanks so much in advance for your time and help!

Excel Forum Sample Doc.xlsm

Thanks for the response Alan, I will get a sample sheet uploaded shortly

Thanks for all of your help AlphaFrog!

I just tried out your code substituting appropriate worksheet names and I am getting a "Run-time error '1004' PasteSpecial method of Range class failed" error at the line ".PasteSpecial x1PasteColumnWidths." Do you have any insight as to why this may be happening?

Hi again,

Yes, the l's are now 1's

Private Sub CommandButton1_Click()

    Dim DstFile As String, wb As Workbook
    
    With ThisWorkbook.Sheets("Create Your Project").Range("U11")
        If .Value = "" Then
            MsgBox "Missing file name on sheet Create Your Project, cell U11", , "Missing Entry"
            Exit Sub
        Else
            DstFile = .Value & ".xls"
        End If
    End With
    
    Application.ScreenUpdating = False
    Set wb = Workbooks.Add(xlWBATWorksheet)
    ThisWorkbook.Activate
    Sheets("S Datasheet Low").UsedRange.Copy
    With wb.Sheets(1).Range("A1")
        .PasteSpecial x1PasteColumnWidths
        .PasteSpecial x1PasteValuesAndNumberFormats
        .PasteSpecial x1PasteFormats
    End With
    'wb.Sheets(1).Name = "S Datasheet Low"
    Application.ScreenUpdating = True
    
    DstFile = Application.GetSaveAsFilename(InitialFileName:=DstFile, Title:="Save As")
    
    If DstFile = "False" Then
        MsgBox "Actions Canceled.", , "File Not Saved"
    Else
        wb.SaveAs DstFile   'Save file
        wb.Close            'Close file
        MsgBox DstFile, vbInformation, "File Saved"
    End If
        
    
End Sub

I transcribed it incorrectly when I was modifying the code...the secondary workbook is saving properly now.

Thank you so much for all of your help AlphaFrog!!!