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