Ola vonzuben, eu não consigo upar o arquivo porque estou no trabalho e é bloqueado, eu acho que consegui, segue o código que usei...

Sub InserirLinha()
Dim ultimaLinha As Integer

ultimaLinha = Cells(Rows.Count, "B").End(xlUp).Row
' InserirLinha Macro
'

Range("b1").Value = Range("B" & ultimaLinha) + 1
Range("A1:E1").Select
Selection.Copy
Range("A" & ultimaLinha & ":E" & ultimaLinha).Select
Selection.Insert Shift:=xlDown

With ActiveWorkbook.Worksheets("Plan1").Sort
.SetRange Range("B10:B10000")
.Header = xlNo
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
Application.CutCopyMode = False

End Sub

Bom dia vonzuben,

Vê se ajuda.

Option Explicit

Sub InserirLinha()
Dim wsAtiva As Worksheet
Dim UltL    As Long

    Set wsAtiva = ThisWorkbook.ActiveSheet
    UltL = wsAtiva.Cells(Rows.Count, 2).End(xlUp).Row
    
    wsAtiva.Range("A" & UltL & ":E" & UltL).AutoFill Destination:= _
    wsAtiva.Range("A" & UltL & ":E" & UltL + 1), Type:=xlFillFormats

    wsAtiva.Cells(UltL + 1, 2).Value = wsAtiva.Cells(UltL, 2).Value + 1
    wsAtiva.Cells(1, 2).Value = wsAtiva.Cells(UltL, 2).Value + 2
    Application.CutCopyMode = False
    
End Sub

Qualquer coisa da o grito.
Abraço

Robo, seu código está fazendo sequência tudo do mesmo número !

Bernado, é isso, mas se mexeu e deu uma modifica e fiquei meio sem saber com seu código, pois entre A1 até E1 vai valores e estava copiando e agora não está
Outra coisa, sequência está começando pelo número 2

Para ela começa pela linha 10 é só dar select e o copy que não vai dar erro o seu código ?

Obrigado desde já !

Testa o codigo do Bernardo

Boa tarde vonzuben,

Tenta assim:

Option Explicit

Sub InserirLinha()
Dim wsAtiva As Worksheet
Dim UltL    As Long

    Set wsAtiva = ThisWorkbook.ActiveSheet
    UltL = Application.WorksheetFunction.Max(10, wsAtiva.Cells(Rows.Count, 2).End(xlUp).Row)
    
    wsAtiva.Range(Cells(1, 1), Cells(1, 5)).Copy: wsAtiva.Cells(UltL + 1, 1).PasteSpecial

    wsAtiva.Cells(UltL + 1, 2).Value = wsAtiva.Cells(UltL, 2).Value + 1
    wsAtiva.Cells(1, 2).Value = wsAtiva.Cells(UltL, 2).Value + 2
    
    Application.CutCopyMode = False
    Set wsAtiva = Nothing
   
End Sub

Qualquer coisa da o grito.
Abraço

Perfeito agora Bernado !

Nossa, não iria conseguir fazer isso nunca !

Só para fechar o tópico, qual a função desse código Paste:=xlPasteAllUsingSourceTheme ? ( AllUsingSourceTheme )

Obrigado !

Obrigado a todos tb !

vonzuben, atualizei na mesma postagem.
Pode utilizar a nova. Mas respondendo sua pergunta:

Nome: xlPasteAllUsingSourceTheme
Valor: 13
Descrição: Tudo será colado usando o tempo de origem.

Qualquer coisa da o grito.
Abraço