Olá, Pessoal

Fiz uma gravação em macro, mas gostaria de saber se há um jeito de simplificar o código.
Rotina: Tenho uma tabela de pedido e nela existe um campo para a numeração, que não pode se repetir e tem que seguir a ordem crescente de pedidos realizados. Para conseguir isso tive que, além da tabela de pedido(MODELO - PEDIDO 20131.xlsx), criar uma outra tabela (NUMERAÇÃO.xlsx) para servir como banco de dados. Fiz isso com o seguinte código gravado:

Explicando: Tenho a tabela "MODELO - PEDIDO 20131.xlsx" aberta e quando click no botão NOVO, o excel abre a tabela "NUMERAÇÃO.xlsx" e adiciona + 1, ao número que consta na célula A2 da tabela "NUMERAÇÃO.xlsx". E na tabela "MODELO - PEDIDO 20131.xlsx" existe um campo que aponta para o valor contido na célual A2 da tabela "NUMERAÇÃO.xlsx". Assim, consigo fazer um bando de dados para a numeração.

Sub Novo()
        
    Workbooks.Open Filename:="G:MODELOnumeração.xlsx"
    Range("A2").Select
    ActiveCell.FormulaR1C1 = Range("A2") + 1
    ActiveWorkbook.Save
    ActiveWindow.Close
    Windows("MODELO - PEDIDO 20131").Activate
    
End Sub

Gostaria de saber se há como simplificar esse código? Grato, desde já.