Public Sub ДобавлениеЛиста()
    Dim ПутьКФайлу, НомерФайла As String, ИмяПоследнегоЛиста As String
    Dim НовыйЛист As Object
    
    ИмяПоследнегоЛиста = Worksheets(Worksheets.Count).Name
        
    НомерФайла = Replace(ИмяПоследнегоЛиста, "-СБМ суточный рапорт.xls", "", , , vbTextCompare) 'заменяем без учета регистра
    If Not IsNumeric(НомерФайла) Then 'если не является числом НомерФайла
        Exit Sub '- выход из процедуры
    End If
    
    ПутьКФайлу = ThisWorkbook.Path & "\" & CStr(1 + CInt(НомерФайла)) & "-СБМ суточный рапорт.xls"
        
    If Dir(ПутьКФайлу) = "" Then 'если файл не существует
        ПутьКФайлу = Application.GetOpenFilename("Excel files(*-СБМ суточный рапорт.xls),*-СБМ суточный рапорт.xls", 1, "Выберите Excel файл", , False) 'то просим выбрать
        If VarType(ПутьКФайлу) = vbBoolean Then 'была нажата кнопка отмены
            Exit Sub '- выход из процедуры
        End If
    End If
    
    Set НовыйЛист = ThisWorkbook.Sheets.Add(, ThisWorkbook.Sheets(ИмяПоследнегоЛиста)) 'добавляем лист в конец
    НовыйЛист.Name = Mid(ПутьКФайлу, InStrRev(ПутьКФайлу, "\") + 1) ' переименовываем лист
End Sub