Experimente.

Sub InserirLinhaV2()
 Dim UltL As Long
  UltL = Cells(Rows.Count, 2).End(xlUp).Row
   If UltL > 10 Then
    Rows(UltL + 1).Insert
   Else: UltL = 10
   End If
   Cells(UltL + 1, 1).Resize(, 5).Value = Range("A1:E1").Value
   [B1] = [B1] + 1
End Sub

Só faltou copiar as bordas vertical da A1:E1 que não inseriu

Seu código não está dando certo, pois quando excluo linhas, tipo 3 e 4 ele faz isso 1,2,5,6

O código que passei está trabalhando corretamente do jeito que eu quero, apenas queria saber como contornr o problema do rodape

Olá amigo.
Aplica esse código aqui antes de " End Sub ".

Range("A12:E12").Select
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
With Selection.Borders(xlEdgeLeft)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThin
End With
With Selection.Borders(xlEdgeTop)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThin
End With
With Selection.Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThin
End With
With Selection.Borders(xlEdgeRight)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThin
End With
With Selection.Borders(xlInsideVertical)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThin
End With
With Selection.Borders(xlInsideHorizontal)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThin
End With

att,

Francisco

Só faltou copiar as bordas vertical da A1:E1 que não inseriu

Acrescente a segunda linha abaixo.

...
...
   Cells(UltL + 1, 1).Resize(, 5).Value = Range("A1:E1").Value
   Cells(UltL + 1, 1).Resize(, 5).Borders.LineStyle = xlContinuous
...
...

Seu código não está dando certo, pois quando excluo linhas, tipo 3 e 4 ele faz isso 1,2,5,6

Não enetendi

O código do Osvaldomp funciona 100%, o que te passei é muito grande e ainda tem erros.

Tipo ele faz a sequencia
1
2
3
4
se eu excluir as linhas 3 e 4 e apertar ADD de novo vai fazer isso
1
2
5
6

Seu código não está dando certo, pois quando excluo linhas, tipo 3 e 4 ele faz isso 1,2,5,6

Amigo, esse assunto de excluir linhas e refazer a sequência numérica nada tem a ver com o código que eu sugeri, é assunto novo. Nem o seu código original trata disso. A numeração a partir de 'B11' é baseada no número existente em 'B1', óbvio que se você excluir linhas a partir de 'B11' a numeração fica com as falhas correspondentes às linhas excluídas.

No lugar do anterior utilize o código abaixo que atende a essa nova solicitação sua. A cada vez que o código rodar ele irá refazer a numeração a partir de 'B11'.

Sub InserirLinhaCorrigirNumeração()
Dim UltL As Long
  UltL = Cells(Rows.Count, 1).End(xlUp).Row
   If UltL > 10 Then
    Rows(UltL + 1).Insert
   Else: UltL = 10
   End If
   Cells(UltL + 1, 1).Resize(, 5).Value = Range("A1:E1").Value
   [B11] = 1
   Cells(UltL + 1, 1).Resize(, 5).Borders.LineStyle = xlContinuous
   On Error Resume Next
   Range("B11").AutoFill Range("B11:B" & Cells(Rows.Count, 1).End(xlUp).Row), xlFillSeries
End Sub

Lógico que o código que eu coloquei faz isso, pode até olhar
Agora esse último está criando tudo na linha 13 para baixo, ou seja, para baixo da borda

O código que eu passei, como posso colocar o código para ele somente seja inserido entre linha 10 e 12 (são as bordas ) e inclui na linha 11

Seu código está dando erro ! Você testou ?

Lógico que o código que eu coloquei faz isso, pode até olhar
Lógico que NÃO FAZ. Mas se você imagina que faz, então deixa pra lá!

Seu código está dando erro ! Você testou ?

Tem razão, está preenchendo de forma errada. Foi falha minha pois fiz os testes após limpar as células mescladas onde está o texto "Vai está escrito aqui!" e não fiz essa observação na minha postagem. Limpe aquele texto e rode o código. Se o texto for necessário coloque-o na coluna 'B'.

Vou dar uma pensada e tentar colocar um for entre linha 10 e 11

No código que coloquei era apenas trocar PasteSpecial por Insert Shift:=xlDown