Копирование листа и вставка его в ту же книгу с заданием имени

Sub Procedure_1()
 
    Dim shNewSheet As Excel.Worksheet
    
    'Добавляем новый лист и присваиваем ему имя shNewSheet,
    'через которое затем будем обращаться к новому листу.
    Set shNewSheet = Worksheets.Add(After:=Worksheets(Worksheets.Count))
    
    'Даём имя листу.
    
    'Если в ячейке содержится какой-нибудь недопустимый текст,
    'который нельзя использовать в имени листа (например, квадратные скобки),
    'то возникнет ошибка. Отследим эту ошибку.
    
    'On Error Resume Next - позволяет продолжить выполнение кода
    'при возниконовении ошибки.
    On Error Resume Next
    
        'Присваиваем имя.
        shNewSheet.Name = Worksheets(1).Range("A1").Text
        
        'В VBA есть объект Err, который сам
        'создаётся при запуске кода.
        If Err.Number <> 0 Then
            MsgBox "Не удалось дать нужное имя листу.", vbCritical
        End If
        
    'On Error GoTo 0 - отключает работу "On Error Resume Next".
    On Error GoTo 0
    
End Sub

with worksheets.add(after:=sheets(sheets.count))
    .name=MyCell.value
    range("именованный диапазон результатов на листе с расчетами").copy .[A1]
end with