Macro p/ inserção de dados

[Chico Xavier]

Bom dia,

Sou iniciante em VBA e tenho uma dúvida ao que parece simples: tenho uma planilha que contém alguns dados. No cabeçalho dessa planilha inseri um botão "Inserir dados" para a inserção de dados. Porém quero que a inserção desse novo dado seja na célula vazia após o último dado da primeira coluna da planilha.

Tentei o código:

Sub inserir_dados()

Do

If IsEmpty(ActiveCell) = False Then

ActiveCell.Offset(1, 0).Select

End If

Loop Until IsEmpty(ActiveCell) = True

End Sub

porém ele só insere na última célula vazia quando clico na coluna que eu quero, e não na primeira. Quero a inserção na coluna A.

Atenciosamente,

Francisco Xavier

[Paulo H Grando]

Não é a solução mais elegante, mas basta você inserir a seguinte linha antes do Do: Range("A1").Select. Isso ativa a primeira célula da coluna A e faz a varredura nesse coluna.

Paulo Henrique