Sub AddNew_Sheet() Dim myWorksheet As Worksheet Dim myWorksheetName As String
myWorksheetName = "MyName"
Sheets.Add.Name = myWorksheetName
Sheets(myWorksheetName).Move After:=Sheets(Sheets.Count)
Sheets("Sheet1").Range("A1:A5").Copy _
Sheets(myWorksheetName).Range("A1") End Sub