Selecione as células que contêm os dados (no seu caso, as células na coluna B)
e execute esta macro curta:
Sub CommentMaker()
Dim r As Range, v As String
For Each r In Selection
If r.Column <> 1 Then
If r.Text <> "" Then
v = r.Text
With r.Offset(0, -1)
.ClearComments
.AddComment
.Comment.Visible = False
.Comment.Text Text:=v
End With
End If
End If
Next r
End Sub
Observação: isso não removerá os dados originais!