Ve se é isso?
Qualquer coisa tamo ai!

BLZ?
T+

Hoje a net do serviço ta uma %$#$#$#, não conbsigo baixar o anexo, mas as instruções basicas seriam :

'Declaramos a variável
Dim ULTLINHA As Long
'Verifica a Ultima Linha Preenchida na Coluna A e somamos mais 1(a linha vazia)
ULTLINHA = Plan2.Range("A65536").End(xlUp).Row + 1
'Transferimos o dado para a coluna A?? Ultima Linha
Plan2.Range("A" & ULTLINHA).Value = "V"

abraços

Muito obrigado....

Ficou perfeito...

Poderia me explicar como se faz para não repetir a mesma linha?

Andre, se a pergunta se refere ao que postei, após o lançamento Somamos + 1 à variável:

exemplo, na rotina :

Declaramos a variável
Dim ULTLINHA As Long
'Verifica a Ultima Linha Preenchida na Coluna A e somamos mais 1(a linha vazia)
ULTLINHA = Plan2.Range("A65536").End(xlUp).Row + 1
'Transferimos o dado para a coluna A?? Ultima Linha
Plan2.Range("A" & ULTLINHA).Value = "V"

Supondo que a Contegem foi para a ULTIMALINHA foi 3, então apos o lançamento :
Plan2.Range("A" & ULTLINHA).Value = "V"

colocamos ULTIMALINHA = ULTIMALINHA +1

Mas preste atenção, que só somamos mais um se na rotina tivermos um Loop para vários lançamentos, pois a cada vez que executar a rotina é contado as linhas, não sendo necessário somar + c1.

[]s

Bom não sei de qual vc ta perguntando, entao vai o codigo que usei

Sheets("Cadastro").Select
Application.CutCopyMode = False
Range("C2,C3,C4").Copy
Sheets("Banco de dados").Select
Range("A" & Rows.Count).End(xlUp).Offset(1, 0).Select

Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=True
Sheets("Cadastro").Select
Range("C2,C3,C4").ClearContents

na area de destaque do codigo seleciona a ultima linha preechida e move uma linha para baixo

Valeu!!!!

entendi agora!!!

Muito obrigado...