Copiei e colei o código, porém estou tendo o erro abaixo: Erro de compilação Erro de sintaxe Còdigo:
Sub teste()
Range(“b1048576”).Select
ActiveCell.End(xlUp).Select
ActiveCell.Offset(1, 0).Select
Activecell.value = Inputbox(“Digite o nome do participante”)
Activecell.offset(0,1).Value = Inputbox(“Informe o e-mail”)
End Sub