Veja se lhe atende

Olá Reinaldo,

E isso mesmo que preciso!
Só que analisando a planilha lembrei de mais uma coluna que faltou, o campo "EDITORA".
Segue a planilha novamente, só acrescentei a coluna + o campo

Como não entendi sua macro, se vc puder detalhar, ficarei muito grato.

Verifique que os dados cadastrados estão na planilha cadastro coluna F linha 3,5,7,9.....
No codigo "Sheets("CAD_LIVROS").Range("F3")"(e os demais) representa o valor dessa linhas
e "Sheets("BD").Cells(X, 2)" representa o local onde serão salvos os dados do cadastro
Onde X e a linha imediata a ul.tima com dados e o numero depois da virgula e o numero da coluna onde será gravado o valor
Espero ter esclarecidos
Segue ocodigo alterado, copçie os dados abaixo e substitua o que esta em sua planilha

Sub cad_livros()
'Aqui determina qual a ultima linha com dados na coluna A e acrescenta 1 para seposicionar na seguinte
X = Sheets("BD").Cells(Cells.Rows.Count, "A").End(xlUp).Row + 1
'Aqui "pega" o valor do ultimocodigo cadastrado e acreswcenta 1
Seq = Val(Sheets("BD").Cells(X - 1, 1)) + 1

Application.ScreenUpdating = False
'Aqui salva na coluna A em BD o valor do Codigo
    Sheets("BD").Cells(X, 1) = Seq & "."
'Aqui pega o valor de Titulo(Coluna F) em cadastro e salva na coluna B em BD
    Sheets("BD").Cells(X, 2) = Sheets("CAD_LIVROS").Range("F3")
    Sheets("BD").Cells(X, 3) = Sheets("CAD_LIVROS").Range("F5")
    Sheets("BD").Cells(X, 4) = Sheets("CAD_LIVROS").Range("F7")
    Sheets("BD").Cells(X, 5) = Sheets("CAD_LIVROS").Range("F9")
    Sheets("BD").Cells(X, 6) = Sheets("CAD_LIVROS").Range("F11")
    Sheets("BD").Cells(X, 7) = Sheets("CAD_LIVROS").Range("F13")
    Sheets("BD").Cells(X, 8) = Sheets("CAD_LIVROS").Range("F15")
    Sheets("BD").Cells(X, 9) = Sheets("CAD_LIVROS").Range("F17")
    Sheets("BD").Cells(X, 10) = Sheets("CAD_LIVROS").Range("F19")
    Sheets("BD").Cells(X, 11) = Sheets("CAD_LIVROS").Range("F21")
    Sheets("BD").Cells(X, 12) = Sheets("CAD_LIVROS").Range("F23")
    Sheets("BD").Cells(X, 13) = Sheets("CAD_LIVROS").Range("F25")
    Sheets("BD").Cells(X, 14) = Sheets("CAD_LIVROS").Range("F27")
    Application.CutCopyMode = False
    Range("F3,F5,F7,F9,F11,F13,F15,F17,F19,F21,F23,F25").ClearContents
    'Range("F25").Activate
    'Selection.ClearContents
    Sheets("CAD_LIVROS").Range("F3").Select
End Sub

Reinaldo já que você ja deu uma olhada na planilha...
Nesse post: viewtopic.php?f=23&t=6875
O pessoal comenta de uma planilha sua, até baixei mas não rodou.

Minha duvida é a mesma do amigo "victor marassi"
"tirando a possibilidade de utilizar PROCV para buscar o cliente por código ou por outro atributo qualquer, eu poderia ir digitando o nome do cliente ou alguma letra e a lista suspensa começar a filtrar os nomes possíveis automaticamente?"

quero colocar algum tipo de relatorio por autor, tipo puxar os livro do autor fulano. Quando se trata de um unico criterio é mole fazer uma macro com um filtro, mas como escolher entre vários autores, a ideia acima do victor é o que preciso.

Desculpe mas não entendi " mas como escolher entre vários autores" ?
Os modelos que se referem a a um formulario com listview, que a sua planilha não tem. A duvida era para "filtrar" os nomes conforme digitado em uma comobo ou dropdown.
Aparentemente voce que algo diferente.

Deixa eu explicar melhor....
Criei facil usando fitro e macro um relatório com os livros lidos e não lidos.
Criei também um com livros emprestados.

Mas como farei para puxar um relatorio de um determinado autor? pois são varios autores, o esquema seria digitar em uma celula o nome do autor, apertar um botao de comando e o excel retornaria um filtro desse autor em BD.

De uma avaliada em Filtro Avançado -
viewtopic.php?f=10&t=2635 e viewtopic.php?f=10&t=3681
entre outros

De uma avaliada em Filtro Avançado -
viewtopic.php?f=10&t=2635 e viewtopic.php?f=10&t=3681
entre outros

Obrigado Reinaldo!
Obrigado Planilhando!
É exatamente o que preciso!