O que tem de errado nesse código?

[Gabrielpn06]

Boa tarde, meu código entra numa tabela pega as informações de uma coluna e as insere aleatoriamente em uma coluna de outra tabela, mas há algo errado, conseguem me ajudar?

Código:

Private Sub Distribuir_Click(tbusuarios2)
  Select Case tbusuarios2(Profissional)
    Case 1
    Case Is = "Angelica de Souza Alexandre"
    Case 2
    Case Is = "Marianne Barbosa Teixeira"
    Case 3
    Case Is = "Luis Eduardo"
    Case 4
    Case Is = "Pedro dos Santos Fonseca Araujo"
    Case 5
    Case Is = "Diogo Mattos"
    Case 6
    Case Is = "Noemi Pessoa"
    Case 7
    Case Is = "Adriano de Souza Ribeiro"
  End Select
   Selection.insert tbbase(Profissional)
    MsgBox "Operação realizada com Sucesso!"
End Sub

Editado Dezembro 29, 2016 por Gabrielpn06
informação errada

[Alyson Ronnan Martins]

Desculpa mais não entendi seu código.

[Gabrielpn06]

1 hora atrás, Alyson Ronnan Martins disse:

Desculpa mais não entendi seu código.

Então, estou tentando aprender. A ideia e que o código vá a uma tabela do meu Bd  tbusuarios2 na coluna Profissional, copie os dados de lá e cole na coluna Profissional de outra outra tabela tbbase de forma aleatória (fazendo uma distribuição)