Regina, para uma resposta mais concreta, o ideal seria detalhar melhor, quais os Ranges(endereços), se estão em Linhas ou em Colunas, ou anexar o que você já criou com dados ficticios e de tamanho reduzido em arquivo compactado (Zip, Rar).
Por hora, o que posso passar é uma rotina basica que transfere de uma aba para uma outra sempre abaixo do ultimo registro os dados de 3 campos da primeira aba, é o caso de você ajustar os Ranges e adaptar a sua necessidade.
Sub Transferir()
Dim iRow_1 As Long 'Linha 2 da Aba fatura
Dim iRow_2 As Long 'Variavel para a Linha da Aba Cadastro
Dim wsFatura As Worksheet 'Aba de nome Fatura
Dim wsCadastro As Worksheet 'Aba de nome Cadastro
iRow_1 = 2 'Linha 2 da Aba fatura
Set wsFatura = Worksheets.Application.Sheets("Fatura")
Set wsCadastro = Worksheets.Application.Sheets("Cadastro")
'Conta e armazena na Variável iRow_2 a última Linha Preenchida da aba Cadastro
iRow_2 = wsCadastro.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Row
'Transfere os dados preenchidos nas Celulas da aba Fatura, neste caso 3
'e copia para a aba Cadastro abaixo do ultimo registro
wsCadastro.Cells(iRow_2, 1).Value = wsFatura.Cells(iRow_1, 1).Value
wsCadastro.Cells(iRow_2, 2).Value = wsFatura.Cells(iRow_1, 2).Value
wsCadastro.Cells(iRow_2, 3).Value = wsFatura.Cells(iRow_1, 3).Value
End Sub
Na rotina acima, estou supondo que em seu modelo tem as abas "Fatura e Cadastro"
[]s
Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel
Postado : 17/03/2012 8:03 pm