Sub RepositionCommentsSheet()
 Dim c As Comment
 For Each c In ActiveSheet.Comments
  c.Shape.Top = c.Parent.Top + 5
  c.Shape.Left = c.Parent.Offset(0, 1).Left + 5
 Next
End Sub