Ajuda com botões!

[Liberapo]

Pessoal.

Criei o seguinte código.

Private Sub CommandButton1_Click()

Dim magia As String
magia = InputBox("Acrescentar Penalidade")

Range("BP25").Value = magia


End Sub

Ele cadastra um valor em uma célula do excel.

O que eu preciso é que usando o mesmo botão, eu possa cadastrar outro valor da linha de baixo (Sem substituir a linha de cima)...

Obrigado!

Editado Outubro 1, 2012 por Liberapo

[McJota]

Pessoal.

Criei o seguinte código.

Private Sub CommandButton1_Click()

Dim magia As String
magia = InputBox("Acrescentar Penalidade")

Range("BP25").Value = magia


End Sub

Ele cadastra um valor em uma célula do excel. O que eu preciso é que usando o mesmo botão, eu possa cadastrar outro valor da linha de baixo (Sem substituir a linha de cima)... Obrigado!

Se entendi direito, o código seria este:

Private Sub CommandButton1_Click()

Dim magia As String
magia = InputBox("Acrescentar Penalidade")

Range("BP25").Select
Do
  If Not (IsEmpty(ActiveCell)) Then
      ActiveCell.Offset(0, 1).Select
  End If
Loop Until IsEmpty(ActiveCell) = True
Activecell.Value = magia

End Sub

Abraço....