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!