resposta

Sub Tabela_Simples()
    'Criar o título da tabela com a utilização _de comandos em VBA
    Range("a5").Value = "Número de chamada"     
    Range("b5").Value = "Nome"
    Range("c5").Value = "Email"
    Range("d5").Value = "Celular"
    Range("e5").Value = "Nome no Perfil Rede Social"
    Range("f5").Value = "Rede Social"
    Range("g5").Value = "Confirmção de presença"
    'Efetuando o cadastro convidado
    'inserir informações no objeto Célula

Sub Tabela_Simples ()
Range("a6").Value = InputBox("Insira o nome do Convidado")
Range("b6").Value = InputBox("Insira o email do Convidado")
Range("c6").Value = InputBox("o número do celular do convidado")
Range("d6").Value = InputBox("Digite o nome do perfil da rede social")
Range("e6").Value = InputBox("digite a rede social que o conviado utiliza")
Range("f6").Value = InputBox("confirmação de Presença")
MsgBox "Cadastro concluído com sucesso!!!"
End Sub
Sub Tabela_Deslocamento_linha ()
'trabalhando com macro relativa
'Activecell = celula ativa/selecionada

'ir para ultima celula da planilha e clicar
Range("a1048576").Select
'crtl + seta para cima - para chegar na ultima célula preenchida
ActiveCell.End(xlUp).Select
'descer uma linha e clicar
ActiveCell.Offset(1, 0).Select
'celula ativa recebe o nome do segurado


ActiveCell.Value = InputBox("Insira o nome do Convidado")
ActiveCell.Offset(0, 1).Value = InputBox("Insira o email do Convidado")
ActiveCell.Offset(0, 2).Value = InputBox("o número do celular do convidado")
ActiveCell.Offset(0, 3).Value = InputBox("Digite o nome do perfil da rede social")
ActiveCell.Offset(0, 4).Value = InputBox("Digite a rede social que o convidado utiliza")
ActiveCell.Offset(0, 5).Value = InputBox("confirmação de Presença")
MsgBox "Cadastro concluído com sucesso!!!"
End Sub