Nova Aba(Sheet) com gerador de nome

[rdpacato 2]

Pessoal,

 

Quero fazer um botão para criar uma aba nova, com dados pré formatados, usei o Macro para isso, mas não está do jeito que eu quero,

 

Queria que ele enviasse sempre para o final e o Nome pegasse o nome anterior (ex. Projeto_17) e somasse (Projeto_18).

 

Alguém poderia me ajudar?

Sub NovoProjeto()
'
' NovoProjeto Macro
' Criar uma nova aba com o formato de projeto
'

'
    Sheets("Projeto_Novos").Select
    Sheets("Projeto_Novos").Copy After:=Sheets(33)
    Sheets("Projeto_Novos (2)").Select
    Sheets("Projeto_Novos (2)").Name = "Projeto_Novo"
    Range("I14").Select
End Sub