Pasar información de un comentario a una celda

Te paso el siguiente código; deberías seleccionar el rango y luego ejecutar la macro (Ojo que "pisa" lo que haya en la celda donde queda el dato
Sub escribiComentarios()
' Primero se debe seleccionar el rango
' Funciona para rangos "rectangulares"; en rangos partidos habría
' que cambiar la inicialización de cantCeldas
'
Dim rAux As Range
On Error Resume Next
For Each rAux In Selection
  rAux.Offset(1,0) = rAux.Comment
Next rAux
End Sub
Saludos
gfellay

Hola, ya está funcionó le faltaba el .text. Saludos y Gracias
rAux.Offset(1,0) = rAux.Comment.TEXT