Excel VBA: Simple copy of worksheet

gistfile1.vb

...
    Dim wb As Workbook
    Set wb = ThisWorkbook
    
    Application.DisplayAlerts = False
    Dim ws As Worksheet
    For Each ws In wb.Worksheets
        If (ws.Name Like "Second Sheet*") Then
            ws.Delete
        End If
    Next
    Application.DisplayAlerts = False
    
    Sheets("First Sheet").Copy after:=ThisWorkbook.Sheets("First Sheet")
    ActiveSheet.Name = "Second Sheet"
...