Sub Macro1()
    Worksheets("Sheet1").Cells.Copy
    Sheets.Add.Name = "NewSheet"
    Worksheets("NewSheet").Paste
End Sub