Bom Dia!

Possuo uma planilha onde os usuários inserem um comentário através de UserForm, e esses comentários ficam salvos em uma base.

Eu gostaria que um codigo VBA buscasse esses comentários na base e colocasse como um comentário da célula, mas tem um porem, esse comentário será inserido apenas nas celulas cuja o valor seja igual a 1.

Esta meio complicado explicar, mas vou colocar um algoritmo abaixo do meu jeito iniciante mais ou menos o que preciso:

Sub Inserir_Comentario()

Application.ScreenUpdate = False

  'Verifica se o valor das celulas nas colunas indicadas é igual a 1
  If Target.Column ("E", "V","AM", "BD", "BU") And Cells(Target.Row, Target.Column + 1).Value = "1" Then

      'Vou Limpar todos os comentários existentes
      Cells(Target.Row, Target.Column + 1).ClearComments

      'Vou inserir novamente todos os comentarios. O Comentario esta na celula ao lado.
      Set Comentario = Offset(0,1).Value
      Cells(Target.Row, Target.Column + 1).AddComment = Comentario

  Else
     'Caso o valor da Celula/Coluna não seja igual a 1, então apagar comentarios
     Cells(Target.Row, Target.Column + 1).ClearComments

 Application.ScreenUpdating = True

End Sub

OBS: Esse código acima não funciona, mas acho que ajuda a entender mais ou menos como é o codigo que eu quero.

Planilha abaixo:

Obrigado!!