Copiar dados para proxima celula em branco

Seguyinte galera , estou com essa macro para lançamento de dados. Eu queria que ao usar a macro ela procurasse a proxima celula em branco e inserisse os dados. segue abaixo oq eu tenho


Sub lancamento()
'
' lancamento Macro
' Macro gravada em 16/08/2012 por fabiano
'

'
ActiveCell.FormulaR1C1 = "=R[29]C[-11]"
Range("T16:T17").Select

ActiveCell.FormulaR1C1 = "=R[16]C[-6]"
Range("U16:U17").Select


ActiveCell.FormulaR1C1 = "=R[23]C[-7]"
Range("V16:V17").Select

ActiveCell.FormulaR1C1 = "=R[25]C[-8]"
Range("W16:W17").Select

ActiveCell.FormulaR1C1 = "=R[27]C[-9]"
Range("X16:X17").Select

ActiveCell.FormulaR1C1 = "=R[29]C[-10]"
Range("Y16:Y17").Select

ActiveCell.FormulaR1C1 = "=R[31]C[-11]"
Range("Y18:Y19").Select

End Sub

Boa noite!

Por favor poste seu arquivo em site gratuito como send espace e outros e nos mande o linque.


Att

4shared.com/office/LdnN5PZe/controle_Gruta.html?

Bom dia!!

Explique com detalhes o que você pretende fazer!!!

Att

No caso, eu gostaria que ao clicar no botao "lançar dados" , os dados fossem lançados automaticamente nos campos na tabela "Controle semanal". Porém gostaria que esses dados fossem sempre lançadas na em branco. Tipo, hoje vou lançar os dados do dia 17/8 , semana que vem vou lanças os dados do dia 24/08. Pq na minha macro ele joga os dados sempre no mesmo campo, não pula linha.

Então galera, alguem pode me ajudar?

warmaster2 escreveu:

Seguyinte galera , estou com essa macro para lançamento de dados. Eu queria que ao usar a macro ela procurasse a proxima celula em branco e inserisse os dados. segue abaixo oq eu tenho


Sub lancamento()
'
' lancamento Macro
' Macro gravada em 16/08/2012 por fabiano
'

'
ActiveCell.FormulaR1C1 = "=R[29]C[-11]"
Range("T16:T17").Select

ActiveCell.FormulaR1C1 = "=R[16]C[-6]"
Range("U16:U17").Select


ActiveCell.FormulaR1C1 = "=R[23]C[-7]"
Range("V16:V17").Select

ActiveCell.FormulaR1C1 = "=R[25]C[-8]"
Range("W16:W17").Select

ActiveCell.FormulaR1C1 = "=R[27]C[-9]"
Range("X16:X17").Select

ActiveCell.FormulaR1C1 = "=R[29]C[-10]"
Range("Y16:Y17").Select

ActiveCell.FormulaR1C1 = "=R[31]C[-11]"
Range("Y18:Y19").Select

End Sub