Como usar macro para gravar e deslocar celula

[sinesioml]

Boa Noite amigos tenho uma planilha para cadastro de cliente, e preciso que ao clicar no botal gravar, os dados do cliente fique gravado em em uma linha e a macro direcione para a linha abaixo, pois ao cadastrar o novo cliente ele direcione para baixo.
 

 

desde já agradeço.

[Alyson Ronnan Martins]

Boa noite.
1º - Se possivel mudar o seu Designe para o que eu coloquei no anexo para a Guia do "BD"

2º - Segue o código de macro para colocar na sua planilha:
 

Public Sub Cadastro()
'Idenficica qual a ultima linha preenchida e pula uma casa
Dim UlinhaBD As Long
UlinhaBD = Sheets("BD2").Cells(Rows.Count, 1).End(xlUp).Row + 1

'Preenche cadastra dento de BD os dados do CAD
Sheets("BD2").Cells(UlinhaBD, "A").Value = Sheets("CAD").Cells(1, 2).Value
Sheets("BD2").Cells(UlinhaBD, "B").Value = Sheets("CAD").Cells(3, 3).Value
Sheets("BD2").Cells(UlinhaBD, "C").Value = Sheets("CAD").Cells(2, 2).Value
Sheets("BD2").Cells(UlinhaBD, "E").Value = Sheets("CAD").Cells(2, 2).Value
Sheets("BD2").Cells(UlinhaBD, "E").Value = Sheets("CAD").Cells(2, 7).Value

End Sub

Qualquer duvida posta ai ^^