AJUDA! iniciante em VBA

[WBGalvao]

Boa tarde aos membros do Forum ScriptBrasil

Estou iniciando em VBA e trabalho em uma editora. Meu pedido de ajuda é o seguinte:

Tenho uma pasta de trabalho com várias planilhas, cada planilha é um livro e dentro tenho as seguintes informações: nome do livro, data de entrada, nº da NFiscal, quantidade, nº requisição, De (nome da pessoa que autorizou a saída) Para (nome da pessoa ou livraria para quem foi vendido o livro), quantidade de saída, saldo em estoque.

Paralelo a todas as planilhas de livros, eu tenho a planilha Resumo, que é a junção de todos os nomes de livros, saldo em estoque e valor.

Por já existirem várias planilhas, gostaria que quando eu copiasse uma planilha e alterasse seu nome, automaticamente esse nome e saldo em estoque já fossem inclusos na planilha Resumo.

Criei o seguinte código:

Sub Teste()

Sheets("50 Sugestões").Select

Sheets("50 Sugestões").Copy Before:=Sheets(3)

Sheets("50 Sugestões (2)").Select

Range("A2").Select

Selection.Copy

Sheets("Resumo").Select

Range("A105").Select

ActiveSheet.Paste

ActiveCell.FormulaR1C1 = "='50 Sugestões (2)'!R[-103]C"

ActiveCell.ClearFormats

End Sub

é mais ou menos isso, eu quero que seja copiado de uma planilha já existente (por ex. 50 sugestões, que é um livro), sem formato. No Range("A2") está o nome do livro, no Range ("J2") o saldo em estoque.

Eu tentei colar os dados na Range A105(nome) e C105(saldo em estoque) da planilha Resumo, mas se eu rodar o código, vai colar sempre na mesma célula A105 e precisaria ser colado também na C105(saldo em estoque), ou seja, células alternadas e pular pra célula abaixo.

Preciso que fique em ordem alfabética (todas as planilhas, menos a planilha Resumo, que quero deixar como inicial), e os dados dentro da planilha Resumo, que vai receber os dados automaticamente.