Copy used range to new workbook

Sub Copy()

    Application.ScreenUpdating = False

    ActiveSheet.UsedRange.Select

    Selection.Copy

    Workbooks.Add

    ActiveSheet.Paste

    ActiveSheet.Name = "New Data"

    Range("A1").Select

    Application.CutCopyMode = False

   

End Sub