ループしない以外は、成功しております。ただ、For i = ActiveCell.End(xlDown).Rowが構文エラーとなってます。決まった範囲ではないので、選択しているセルから最後の行までループしたく。
また、右隣(コメントの値となるセル)が空白の場合はスルーする処理も追加できたら幸いです。宜しくお願い致します。
Sub 右隣のセルをコメントとして挿入()
Dim r As Range
On Error Resume Next 'エラーを無視
For i = ActiveCell.End(xlDown).Row
Dim Mytext As String
Mytext = ActiveCell.Offset(0, 1).Value
ActiveCell.Select
ActiveCell.AddComment Text:=Mytext
Next i
End Sub