Bom dia, SINESIOML.

Uma maneira simples de realizar o que deseja seria.

Sub Inserir()

    ' NOME
    Plan2.Range("A" & Rows.Count).End(xlUp).Offset(1, 0) = Plan1.Range("B1").Value
    ' DATA NASCIMENTO
    Plan2.Range("B" & Rows.Count).End(xlUp).Offset(1, 0) = Plan1.Range("C3").Value
    ' ENDERECO
    Plan2.Range("C" & Rows.Count).End(xlUp).Offset(1, 0) = Plan1.Range("B2").Value
    ' NUMERO
    Plan2.Range("D" & Rows.Count).End(xlUp).Offset(1, 0) = Plan1.Range("G2").Value
    ' IDADE
    Plan2.Range("E" & Rows.Count).End(xlUp).Offset(1, 0) = Plan1.Range("B4").Value

End Sub

Complementando.

Eu já usei este que insere com Form.

Achei no site da Microsoft mesmo, o interessante que você insere uma vez, e após inserir ele pergunta se quer inserir de novo!

Private Sub CommandButton1_Click()
Dim LastRow As Object
'	Insere na coluna B, na linha abaixo da tabela já existente os valores das Textbox.
Set LastRow = Plan1.Range("B5009").End(xlUp)
LastRow.Offset(1, 0).Value = TextBox1.Text
LastRow.Offset(2, 0).Value = TextBox2.Text
LastRow.Offset(3, 0).Value = TextBox3.Text
'	Pergunta se deseja inserir mais dados, se sim volta ao inicio da Form.
If response = vbYes Then
Concil_01_TextBox1.Text = ""
Concil_01_TextBox1.SetFocus
Else
Unload Me
End If
End Sub