Excel Macro para nova aba e hyperlink

[Leonardohd]

Bom dia, estou tentando criar uma macro para copiar uma planilha existente (Orçamento) e criar uma aba nova (ou copiar as celulas e colar na nova aba criada),onde o nome desta aba será o nome que estiver em uma célula

Quero também que após criada a aba, crie uma linha nova em uma tabela e coloque o nome da nova aba (orç1, por exemplo) em outra planilha (Orç. em Andamento) e passe a ser um hiperlink para esta nova aba (orç1).

 

Fiz varias macros mas estou sempre travando na parte do hiperlink, irei anexar o arquivo que estou mexendo aqui, para entender melhor são esses passos que quero seguir:

Ao clicar no botão na planilha "Orçamento" quero que crie uma nova aba com o nome que eu colocar em uma celula na planilha Orçamento e depois gere uma linha nova na planilha Orçamento em Andamento com hiperlink dessa nova aba

Modelo Orçamento.xls

[Leonardohd]

Está dando problema só no hiperlink, não sei como fazer puxar para a planilha nova criada que cada vez terá um nome diferente

Sub novo()
'
' novo Macro
'

'
    Sheets("Orçamento").Select
    ActiveSheet.Buttons.Add(370.5, 69, 65.25, 23.25).Select
    ActiveSheet.Buttons.Add(439.5, 69, 54.75, 23.25).Select
    ActiveSheet.Buttons.Add(370.5, 69, 65.25, 23.25).Select
    ActiveSheet.Buttons.Add(439.5, 69, 54.75, 23.25).Select
    ActiveSheet.Buttons.Add(370.5, 69, 65.25, 23.25).Select
    ActiveSheet.Buttons.Add(439.5, 69, 54.75, 23.25).Select
    ActiveSheet.Buttons.Add(370.5, 69, 65.25, 23.25).Select
    ActiveSheet.Buttons.Add(439.5, 69, 54.75, 23.25).Select
    Sheets("Orçamento").Copy After:=Sheets(5)
    Range("A1").Select
    ActiveCell.FormulaR1C1 = "=RC[1]"
    Range("A2").Select
    Sheets("Orçamento").Select
    ActiveWindow.ScrollRow = 2
    ActiveWindow.ScrollRow = 3
    ActiveWindow.ScrollRow = 7
    ActiveWindow.ScrollRow = 11
    ActiveWindow.ScrollRow = 16
    ActiveWindow.ScrollRow = 19
    ActiveWindow.ScrollRow = 22
    ActiveWindow.ScrollRow = 23
    ActiveWindow.ScrollRow = 24
    ActiveWindow.ScrollRow = 26
    ActiveWindow.ScrollRow = 27
    ActiveWindow.ScrollRow = 28
    ActiveWindow.ScrollRow = 29
    ActiveWindow.ScrollRow = 30
    ActiveWindow.ScrollRow = 32
    ActiveWindow.ScrollRow = 33
    ActiveWindow.ScrollRow = 34
    ActiveWindow.ScrollRow = 35
    ActiveWindow.ScrollRow = 36
    ActiveWindow.ScrollRow = 38
    ActiveWindow.ScrollRow = 39
    ActiveWindow.ScrollRow = 40
    ActiveWindow.ScrollRow = 42
    ActiveWindow.ScrollRow = 43
    ActiveWindow.ScrollRow = 44
    ActiveWindow.ScrollRow = 45
    ActiveWindow.ScrollRow = 46
    ActiveWindow.ScrollRow = 47
    ActiveWindow.ScrollRow = 48
    ActiveWindow.ScrollRow = 49
    ActiveWindow.ScrollRow = 50
    ActiveWindow.ScrollRow = 51
    ActiveWindow.ScrollRow = 52
    Range("J67").Select
    Selection.EntireRow.Insert , CopyOrigin:=xlFormatFromLeftOrAbove
    ActiveCell.FormulaR1C1 = "=R[-66]C[-8]"
    Range("J67").Select
    Selection.Copy
    Range("K67").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("L65").Select
    Application.CutCopyMode = False
    Sheets("Orç. Andamento").Select
    Rows("8:8").Select
    Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
    Range("B8").Select
    ActiveCell.FormulaR1C1 = "0"
    Range("B8").Select
    ActiveCell.FormulaR1C1 = "=Orçamento!R[59]C[9]"
    Range("B8").Select
    ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:= _
        "B1"
    Sheets("Orçamento").Select
    ActiveWindow.ScrollRow = 51
    ActiveWindow.ScrollRow = 23
    ActiveWindow.ScrollRow = 4
    ActiveWindow.ScrollRow = 1
    Range("B1").Select
    Selection.ClearContents
    Range("A9").Select
    Range(Selection, Selection.End(xlDown)).Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.ClearContents
    Range("C9:D9").Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.ClearContents
    Sheets("Orç. Andamento").Select
End Sub