Перенос комментариев Excel в ячейки со сдвигом

Sub Comments2cells()
Dim c As Range, n, m, r
  Set c = Selection.Find("*", Selection.Cells(Selection.Cells.Count), xlComments, , xlByRows, xlNext)
  If c Is Nothing Then
    MsgBox "В выделенном диапазоне нет коментов", vbInformation
    Exit Sub
  End If
  On Error Resume Next
  Set n = Application.InputBox("Выберите мышкой столбец для вставки", Type:=8)
  If Err Then
    MsgBox "Диапазон вставки не выбран", vbExclamation
    Exit Sub
  End If
  n = n.Column
  Do
    If c.Row <> r Then r = c.Row: m = n Else m = m + 1
    Cells(r, m) = c.Comment.Text
    c.Comment.Delete
    Set c = Selection.FindNext(c)
  Loop Until c Is Nothing
End Sub

Sub Comments2cells1()
Dim c As Range, n
  Set c = Selection.Find("*", Selection.Cells(Selection.Cells.Count), xlComments, , xlByRows, xlNext)
  If c Is Nothing Then
    MsgBox "В выделенном диапазоне нет коментов", vbInformation
    Exit Sub
  End If
  On Error Resume Next
  Set n = Application.InputBox("Выберите мышкой столбец для вставки", Type:=8)
  If Err Then
    MsgBox "Диапазон вставки не выбран", vbExclamation
    Exit Sub
  End If
  n = n.Column - Selection.Column
  Do
    c.Offset(, n) = c.Comment.Text
    c.Comment.Delete
    Set c = Selection.FindNext(c)
  Loop Until c Is Nothing
End Sub