Guru do Excel e Power BI

Consegui fazer até aqui, pois até está inserindo

Mas não estou conseguiu fazer o seguinte

Ao clicar no botão cria uma linha na row 13

ao clicar de novo gostaria de criar outra acima jogando a 13 para 14 e assim vai ( ascendente )

13 - linha criada ( segunda linha criada na row 13 )
14 - linha criada ( primeira linha criada na row 13 )

Sub Inserirlinha()

Dim nextrow As Integer
Dim shtFinanceiros As Worksheet

Worksheets("Financeiros").Range("A2:T2").Copy
Range("A13:T13").PasteSpecial

End Sub

Obrigado desde já !

Bom dia!!

Seria isso? Att

Deu esse erro !
Essa operação não é permitida. A operação está tentando deslocar células em uma tabela da planilha.

Boa tarde!!

No meu trabalho eu não tenho acesso a sites de hospedagem.

Eu não tive erro, verifique se a guia está protegida.

Att

Não tem como anexar direto pelo forum a planilha ?

A verdade que ele está pegando uma linha formatado A2:T2 e jogando na row 13 que não está formatado, pois assim não acontece o erro, sendo quando o row 13 está formtado ele não cola

Ele sempre vai jogar na última linha sem formatar seu código, pois se jogar entre A5 e A8 formato com borda e cor de célula vai dar erro 400

Qual o tamanho da sua planilha? Se for até 5 MB é possível anexar pelo fórum , sim.

Até consegui, mas está duplicando

Digitando Ex: 10 e ao clicar no botão inserir aparece dois 10

Linha - 11 aparece 10
Linha - 12 aparece 10

Digitando novamente Ex: 20 aparece da seguinte forma

Linha - 11 aparece 20
Linha - 12 aparece 20
Linha - 13 aparece 10

Segue a planilha para analisar

A linha 2 vou deixar oculta !