Minha dúvida é de como fazer que este codigo de fazer cadastro de clientes no excel faça um Cadastro Novo fique embaixo do ja Cadastrado antes.

Sub Atalhos_BaseDados()

'

' Atalhos_BaseDados Macro

'

'
    Sheets("Base_Dados").Select

End Sub

Sub Atalho_Cadastro()

'

' Atalho_Cadastro Macro

'

'
    Sheets("Cadastro").Select

End Sub

Sub Cadastro()

If Range("D6") = Empty Or Range("G6") = Empty Or Range("D8") = Empty Or Range("G8") = Empty Then

MsgBox ("Preencha todos os campos de cadastro!")

Exit Sub

End If

Sheets("Base_Dados").Select

Range("B4").EntireRow.Insert   'Pede pra inserir uma linha

'Copia Nome

Sheets("Cadastro").Select               'Seleciona a Aba Cadastro

Range("D6").Copy                        'Copia a célula D6'

Sheets("Base_Dados").Select             'Seleciona Aba Base_Dados

linha = Range("C1048576").End(xlUp).Row + 1

Range("C4").PasteSpecial xlPasteValues 'Colar na celula C4 somente se estiver preenchida

'Copia Telefone

Sheets("Cadastro").Select               'Seleciona a Aba Cadastro

Range("G6").Copy                        'Copia a célula D6'

Sheets("Base_Dados").Select             'Seleciona Aba Base_Dados

linha = Range("D1048576").End(xlUp).Row + 1

Range("D4").PasteSpecial xlPasteValuesAndNumberFormats  'Colar na celula C4 somente se estiver preenchida

'Copia Endereço

Sheets("Cadastro").Select               'Seleciona a Aba Cadastro

Range("D8").Copy                        'Copia a célula D6'

Sheets("Base_Dados").Select             'Seleciona Aba Base_Dados

linha = Range("E1048576").End(xlUp).Row + 1

Range("E4").PasteSpecial xlPasteValues 'Colar na celula C4 somente se estiver preenchida

'Copia Cidade

Sheets("Cadastro").Select               'Seleciona a Aba Cadastro

Range("G8").Copy                        'Copia a célula D6'

Sheets("Base_Dados").Select             'Seleciona Aba Base_Dados

linha = Range("F1048576").End(xlUp).Row + 1

Range("F4").PasteSpecial xlPasteValues 'Colar na celula C4 somente se estiver preenchida

'Copia Código

Sheets("Cadastro").Select               'Seleciona a Aba Cadastro

Range("D4").Copy                        'Copia a célula D6'

Sheets("Base_Dados").Select             'Seleciona Aba Base_Dados

linha = Range("B1048576").End(xlUp).Row + 1

Range("B4").PasteSpecial xlPasteValues 'Colar na celula C4 somente se estiver preenchida

'Limpar todos esses campos após Cadastrar

Worksheets("Cadastro").Range("D6").ClearContents

Worksheets("Cadastro").Range("G6").ClearContents

Worksheets("Cadastro").Range("D8").ClearContents

Worksheets("Cadastro").Range("G8").ClearContents

End Sub

Editado pela Moderação. Motivo: Utilize o botão Código (< >) para inserir código VBA ou Fórmulas.