求大神指点VBA代码，如何将内容列中的文字，自动添加批注至奖惩列，同一行的单元格内。

Sub 插入批注()Dim n%n = 2Range("B:B").ClearComments ' 删除B列的批注DoCells(n, 2).AddComment '插入批注Cells(n, 2).Comment.Text Text:=Cells(n, 3).Value '编辑批注内容n = n + 1Loop Until Cells(n, 1) = ""End Sub