Создать новый *.xlsx файл с одним листом и именем Ouput

Sub zzz()
ActiveSheet.Copy
Cells.Clear
ActiveSheet.Name = "output"
End Sub

ActiveSheet.Copy
With ActiveWorkbook
  .SaveAs "Ouput.xlsx", xlOpenXMLWorkbook
  .Close 0
End With

Set wb = Workbooks.Add(1)

Sub CreateOutputFile(path As String)
    Dim EApp As Excel.Application
 
 
    
    If Not (Dir(path & "\Output.xlsx") > "") Then
       Set EApp = CreateObject("Excel.Application")
        With EApp.Workbooks.Add
            .SaveAs path & "\Output.xlsx"
        End With
        EApp.Workbooks(1).Worksheets(1).Name = "Output"
  
 
    With EApp.Workbooks(1).Sheets("Output")
        .Cells.Clear
        .Cells(1, 1).value = "Name"
        .Columns("A").EntireColumn.AutoFit
    End With
    EApp.Workbooks(1).Close True
    EApp.Quit
    Set EApp = Nothing
End If
End Sub

Sub CreateOutputFile(path As String)
  With Workbooks.Add(xlWBATWorksheet) 'книга с 1 листом, независимо от параметра
                                      ' "число листов в новой книге"
    With .Worksheets(1)
      .Name = "Output"
      .Cells(1, 1).Value = "Name"
      .Columns(1).EntireColumn.AutoFit
    End With
    Application.DisplayAlerts = False 'не выдавать предупреждение о перезаписи файла
    .SaveAs path & "\Output.xlsx", xlOpenXMLWorkbook
    Application.DisplayAlerts = True
    .Close 0
  End With
End Sub