Olá, João.

O que você chama de tabela é Intervalo de Dados ou é Tabela Excel.

Em ambos os casos informe qual é a coluna inicial (coluna mais à esquerda da tabela) e se for Tabela Excel informe o nome da Tabela.

Ainda, você quer adicionar as linhas ao digitar um valor em B1, ou após digitar um valor você prefere clicar em um botão na planilha para assim adicionar as linhas ?

@osvaldomp boa tarde.
Obrigado pela atenção.
Para facilitar, fiz um modelo (anexo) do que estou precisando, e creio que ficou melhor a explicação.
Se puder dar uma olhada, eu agradeço.
Abs.

Olá, João.

Experimente o código abaixo.

Sub InsereLinhas()
Dim LR As Long, k As Long
If IsNumeric([G2]) And [G2] > 0 Then
LR = Columns(1).Find(what:="*", SearchDirection:=xlPrevious, SearchOrder:=xlByRows).Row
For k = 1 To [G2]
ActiveSheet.ListObjects("Tabela1").ListRows.Add LR - 1
Next k
Else: MsgBox "PREENCHA G2 COM VALOR MAIOR QUE ZERO"
End If
End Sub

@osvaldomp
Ficou perfeito. Te agradeço muito!
Grande abraço.