[Projeto] Desafio do prompt

Assim ficou meu código final, já alimentando o prompt com os dados da linha em que houve o click:

Private Sub UserForm_Activate()
    
    'declaração da variável "LinnhaSelecionada" como um número inteiro
    Dim LinhaSelecionada As Integer
    
    'Atribuindo o valor da linha selecionada à variável "LinhaSelecionada"
    LinhaSelecionada = Selection.Row
    
    'Mensagem ao usuário para verificar saber a linha que foi clicada
    MsgBox "Linha selecionada: " & LinhaSelecionada
    
    'Alimentando o formulário
    txtAtivo = Cells(LinhaSelecionada, 1)
    txtQuantidade = Cells(LinhaSelecionada, 2)
    txtTipo = Cells(LinhaSelecionada, 3)
    txtPreco = Cells(LinhaSelecionada, 4)
    txtCliente = Cells(LinhaSelecionada, 5)
    txtContatoMesa = Cells(LinhaSelecionada, 6)
    txtData = Cells(LinhaSelecionada, 7)
    txtHora = Cells(LinhaSelecionada, 8)
                        
End Sub