Sub cadastro()
Range("a1048576").Select
ActiveCell.End(xlUp).Select
ActiveCell.Offset(1, 0).Select
ActiveCell.Offset(0, 1).Value = InputBox("Convidado")
ActiveCell.Offset(0, 2).Value = InputBox("Email")
End Sub
Sub cadastro()
Range("a1048576").Select
ActiveCell.End(xlUp).Select
ActiveCell.Offset(1, 0).Select
ActiveCell.Offset(0, 1).Value = InputBox("Convidado")
ActiveCell.Offset(0, 2).Value = InputBox("Email")
End Sub
Oi Barbara tudo bem?
É isso mesmo!!! Continue assim e bons estudos!!!