Copy an Excel worksheet to a new sheet, Delete a Worksheet, name a Worksheet

Sub CopySheet()

Dim xl As Excel.Application
Dim wb As Excel.Workbook
Dim sh As Excel.Worksheet
Dim ws1 As Excel.Worksheet
Dim ws2 As Excel.Worksheet

'Simple Macro Copying from one Sheet to Another
'and adding additinal sheet then deleting it without
'a message

Set xl = Application
Set wb = xl.ThisWorkbook
Set ws2 = wb.Sheets(2)

'Assume Sheet 2 exists

For i = 1 To 10
    For x = 1 To 10
        ws2.Cells(i, x).Value = i * x
    Next x
Next i
'Copy one Worksheet to another
ls = wb.Sheets.Count
For x = 3 To 10
    ls = wb.Sheets.Count
    ws2.Copy after:=wb.Sheets(ls)
    wb.Sheets(ls + 1).Name = "Sheet" + Trim(Format(ls + 1, "####"))
Next x
ls = wb.Sheets.Count


wb.Sheets.Add after:=wb.Sheets(ls)
ls = wb.Sheets.Count
Set sh = wb.Sheets(ls)
sh.Name = "NewSheet"


xl.DisplayAlerts = False
wb.Sheets(ls).Delete
xl.DisplayAlerts = True
ws2.Select

End Sub