Boa noite Vonzuben

Teste assim:

Sub Inserirlinha()

Dim nextrow As Integer
Dim shtFinanceiros As Worksheet

Worksheets("Financeiros").Range("A2:T2").Copy
    Rows("13:13").Select
    Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Range("A13:T13").PasteSpecial
    Application.CutCopyMode = False

End Sub

Se ficou como vc queria, não esqueça de marcar como RESOLVIDO.

Abraços

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

Seu office é 2010?
Qual a extensão da sua planilha? XLS? XLSX? XLSM?
Qual a ultima linha da sua planilha?

2007
XLS

Vonzuben, você consegue compartilhar a planilha conosco?
Fica mais facil ajudar.

Consegui fazer na última linha, mas preciso que seja na 13

Sub Inserirlinha()

Dim nextrow As Integer
Dim shtFinanceiros As Worksheet

nextrow = ActiveSheet.Cells.SpecialCells(xlLastCell).Row + 1

Worksheets("Financeiros").Range("A2:T2").Copy
ActiveSheet.Cells(nextrow, 1).Select
ActiveSheet.Paste

Selection.EntireRow.Hidden = False

End Sub

https://www.dropbox.com/s/2q8btr85r3gih ... .xlsx?dl=0

vonzuben,

Experimente o código abaixo:

Sub addLinha()
    With ThisWorkbook.Sheets("Financeiros")
        .Activate
        Rows(13).Select
        Selection.Copy
        Selection.Insert 1
        Cells(13, "A").Select
        Selection.PasteSpecial
        Application.CutCopyMode = False
        Cells(13, "B").Select
    End With
End Sub

Abs

vonzuben,

Após a linha Selection.PasteSpecial adicione Selection.ClearContents para limpar a nova linha.

Abs

Vou ter que colocar também o .Range("A2:T2").Copy, pois ele copia essa linha com format e joga na 13
Seria isso ?

Resolvi de um outro jeito !

vonzuben,

Que bom que resolveu!.

Se possível, poste a solução do problema. Assim todos que tiverem dúvidas semelhantes, terão acesso a uma solução.

Abs